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INTRODUCTION 


A.  BACKGROUND 

1.  Technological  Ppoqress 

The  invention  of  rroveable  tyce  had  a trefpendous  im- 
pact on  man's  environment.  The  invention  of  printing,  more 
than  any  single  achievement,  "marks  the  line  of  division 
between  medieval  am  modern  technology"  [Ref.  151.  Techno- 
logical improvements  to  Gutenbero's  invention  continued  at  a 
snail's  pace  throuan  the  latter  half  of  the  nineteenth  cen- 
tury until  the  public  demand  for  gaily  news  reouired  more 

rapid  mooernization  in  the  printing  industries.  Constant 
improvements/  one  of  which  was  the  use  of  electrical  power 
to  drive  presses,  continued  throuqh  the  mid  twentieth  centu- 
ry until/  finally,  one  coulo  find  printing  rooms  filled  with 
linecasters/  complex  e 1 ec t r c-mec h an i c a 1 contractions  produc- 
ing hot  metal  tvoe,  and  presses  noisily  spewing  forth  tons 

of  paper  each  day.  However,  the  public's  appetite  was  seem- 

ingly insatiable,  and,  while  cress  sceed  was  satisfactory, 
the  entire  process  was  slowed  by  the  composition  functions 
of  line  justification,  hyphenation,  soellina,  and  so  on. 
These  functions  still  required  human  preprocessing  or 
operator  interruption  of  linecasters.  The  solution  to  this 
bottleneck  was  provided  by  the  computer  and  recent  aavances 
in  text  orocessinq. 

»•  ' r 1 . . 

• n,  • 
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2.  Computer  Assisted  Typesetting 


The  computer#  oraduaMy  extending  its  influence  into 
many  unrelated  fielos#  hao  now  entered  the  printing  indus- 
try. Its  employment  was  in  assistina  the  typesetters#  not 
replacing  them.  Computer  assisted  typesetting  fCATS)  was 
c h a r ac t e r i zed  by  the  computer  performing  all  line  justifica- 
tion# page  breaking#  hyphenation#  etc.#  essentially  the  in- 
formation to  be  pr intea  was  beino  oreprocessed  by  a program. 
The  result  of  this  process  was  a tape#  either  a perforated 
paper  taoe  or  a magnetic  tape#  which  contained  the  processed 
text  interspersed  with  commands  to  the  printino  aevice# 
specifino  when  to  hyphenate#  when  to  chamne  tvceface#  when 
to  inoent#  etc.  In  aooi*ion  to  orocessing  text#  the 
computer's  software  had  to  be  tailored  to  the  specific 
printing  apparatus.  The  taoe  was  desianed  to  assist  the 
electro-mechanical  linecasters  in  the  setting  of  hot  metal 
type#  and  presses  continued  to  produce  the  print. 


Soon  manv  newsoaoers  ana  publishers  were  using  com- 
puters to  produce  taoes  of  processed  text#  which  prove  the 
more  conventional  linecastim  machine's.  Although  the  future 
of  computers  in  the  printino  industries  looked  brioht#  there 
were  r ece r c u s s i on s anc  even  some  failures.  Labor  revolted 
at  the  smell  of  further  automation#  and  this  problem  was 
necessarily  handled  delicately.  The  /jAShI^GTUM  EVENING  STAR 
was  the  first  major  newspaper  to  successfully  assist  its 
press  operation  with  a computer  [Ref.  b] . One  such  attempt 


failed.  In  1'562#  the  ARIZONA  JOURNAL  was  founded#  and  its 


1 


publisher  r1eci<1eri  to  begin  i t h a cofrouter 


a GE  ^2^, 


In  the  early  I'^bO's/  there  was  a flurry  of  Oeveloc;- 
ment  in  noni-poact  printing.  Previoi.jsly/  all  printing  was 
by  i'poactp  the  striking  of  a raised  share  of  a character 
onto  rarer  with  sofre  inking  irechanisin  involveo.  Using  new 
advances  in  xerograrry,  ohotograrhy,  ang  high  sreea  control 
(r  ec  h an  i s fp  s » nonimpact  printing  devices  were  characterized  by 
higher  printing  soeeds/  less  noise»  fewer  moving  parts* 
higner  p e 1 i ab i 1 i t v * and  a greater  capacity  to  handle  both 
textual  and  graphical  information  (Ref.  ^] . 


In  IRol  ^icheal  P.  Rarnett*  at  I T , oesioned  a pro- 
gram wnich  processec  text  and  produced  taoe  which  orove  a 
Photon  5o0,  a oh o t c t y pe se t t e r . Tnis  particular  photo- 
tyoesetter  contained  a disc  with  photographic  images  of 
Characters  from  various  typefaces.  The  typefaces  were  ar- 
ranged in  concentric  circles  about  the  center  of  the  disc, 
^s  the  tape  was  processed,  a light  source  moved  back  and 
forth  from  the  center  of  the  disc  to  its  edge  while  the  disc 
rotated  at  high  speed.  in  intricate  timing  mechanism  within 
the  Photon  5b0  ensured  that  pictures  of  the  correct  charac- 


1 1 


pubHs^>er  Heciden  to  beain  a cof^Duter^  a GE  ^25/  to 
oerform  text  orocessinq  function';  and  administrative  tasks. 
GE  ' s comouter  oersonnel  wortcinq  on  the  qrqject  knew  nothing 
of  pijolishinq  newsoapers/  and  the  oaoer’s  staff  knew  nothing 
of  computers.  The  software  did  not  materialize  in  time  to 
begin  printing,  and  creditors  foreclosed  [hef.  lt>l. 

3.  Computer  Typesetting 

In  the  early  I'ToO’s,  there  was  a flurry  of  develop” 
ment  in  nonimoact  printing.  Previously,  all  orintina  was 
by  imoact,  the  striking  of  a raised  shape  of  a character 
onto  paper  with  some  inking  mecranism  involyed.  Using  new 
advances  in  xerograpny,  photography,  ang  high  soeeo  control 
mechanisms,  nonimpact  printing  devices  were  characterized  by 
t'igher  printim  speeds,  less  noise»  fewer  moving  parts. 


h i on  e r 

r e 1 i ab  i 1 

i t v , 

and  a greater  capacity  to  handle  both 

textual 

and  grapnical 

information  [Ref 

. a] 

• 

In  IPol 

Ji  i c n e a 

1 P . darnet  t , at 

viT 

, aesianed 

a c r O” 

gram  w n 

icn  processec 

text  and  produced 

t ape  which 

orove  a 

Photon 

5o  0 , a 

oh  0 1 0 1 ype se 1 1 e r . Tn 

i s 

Part icul ar 

photo- 

typesetter  containeo  a disc  with  photographic  images  of 
characters  from  various  tyoefaces.  Tne  typefaces  were  ar- 
ranged in  concentric  circles  about  the  center  of  the  disc. 
11s  the  tape  was  processed,  a liaht  source  moved  pack  ang 
forth  from  tne  c*>nter  of  the  disc  to  its  edge  while  the  disc 
rotated  at  high  speed.  intricate  timing  mechanism  within 
tne  Pnoton  5p0  ensured  tnat  pictures  of  the  correct  cnarac- 


tens  in  the  correct  typeface  were  exposed  to  the  film  behind 


the  disc.  From  tne  film,  either  Hthoaraphic  plates  could 
oe  made  or  documents  produced  directly  through  special 
machines  (f’ef.  11.  D i st  i nau  i sh  i no  between  computer  typeset- 
ting and  computer  assisted  typesetting  (CATS)  is  difficult. 
Considering  the  tremendous  potential  of  nonimpact  printers 
and  the  recent  (last  10  years)  advances  in  computer  output 
microfilm  (CO'-'),  computer  t-ynesettino  is,  in  this  author's 
opinion,  the  future  Direction  in  the  orintina  industry. 
Computer  tvPesettino  tends  to  be  more  software  oriented. 
Conseauen t 1 y , there  tends  to  be  less  of  a separation  between 
the  text  processina  ana  the  actual  character  generation; 
continuity  is  more  apparent  in  computer  typesetting.  In 
computer  tvPesettino,  the  computer  sets  "software"  type) 
whereas,  in  CATS,  the  computer  creates  some  tape  which 
drives  devices  which  set  "hardware"  tyre.  The  state-of- 
the-art  character  generation  techniaues  for  computer 
typesetters  are  ohoto/optic,  onoto/scan,  and  digit  a 1/scan 
(Refs.  ? ana  lul.  Briefly,  the  three  techniaues  are 
described: 


a . Rho t o/op  t i c 


Here,  photographic  images  of  characters  are 
stored,  and  hioh  speed  access  to  these  images  allows  them  to 
be  projected  throudh  a lens  onto  film  or  pacer.  Scaling  is 
possible  throudh  lens  switching,  ana  access  times  are 
several  milliseconds  per  character.  The  presence  of  moving 


parts  limits  speed  and  reliability. 


I? 


b.  Photo/scan 


Aaain,  onotoaraohic  in’aqes  of  characters  are 
storea.  The  selected  character  i»raqe  is  "scanned";  that  is» 
horizontal  slices  of  its  i-naae  are  projected  sequentially 
from  too  to  bottom  completinq  the  full  character  picture, 
Scalino  is  possible  by  expanding  and/or  adding  duplicate 
scan  lines.  Aqain,  tne  presence  of  moving  parts  limits  re- 
I i ap  i 1 i t y , 

c.  Dioital/scan 


All  cnaracten  images  are  stored  in  memory  as 
pictures  comooseo  of  "I's"  and  "O's"  (hits  either  "on"  or 
"off").  The  character  i-^aoes  are  plotted  by  a program  pass- 
ing the  digital  picture*  in  bits,  to  static  orintino  heads 
(one  head  re''  hit)  or  by  recording  the  digital  picture,  bit 
by  bit,  with  an  electron  or  laser  gun.  Although  scaling  is 
not  oossiole,  this  technique  provides  the  fastest  character 
access  and  interfaces  with  printing  devices  with  few  moving 
parts.  These  last  two  characteristics  are  imoortant  advan- 
tages. One  disadvantage,  however,  is  that  oigital  represen- 
tations show  a "staircase"  effect  in  large  characters. 


Producing  different  typefaces  can  ne  tccom- 
olished  for  each  technique.  The  photo/ootic  and  photo/scan 
methods  require  that  a master  disc  of  character  images  be 
made.  Oigital/scan  devices  acquire  different  typefaces  from 
either  of  two  ways.  First,  there  are  devices  that  can 


read 


a photographic  character  image  and  Pass  a digitized 


*1 


interpretation  to  're'^'ory  for  storaae.  SeconOlvr  there  exist 
interactive  rroarams  (editors)  which  enable  a user  to 
create  diqitized  character  pictures  (Ref.  2).  There  was  no 
attempt  to  analytically  compare  the  three  techniques  or  to 
propose  benchmarking  methods  as  this  thesis  effort  was  res~ 
tricted  to  a system  which  is  hardware  dependent  on  the 
diqital/scan  technique. 


Althouah  there  is  much  ongoing  research  in  the 
area  of  computer  typesetting,  its  application  is  well  esta- 
blished in  the  orintinq  industry.  For  example,  as  early  as 
Id70,  a book  was  published  entirely  by  computer  typesetting 
(Ref . . 


B.  CO^’PUTEH  TYPESETTING  UNDER  UNIX 
1 . System  Design 

This  section  describes  tne  system  as  it  existed  be- 
fore this  author  oegan  his  research  effort,  and,  although 
many  improvements  were  mane,  not  all  system  components  have 
teen  modifieoJ  however,  the  system  may  still  be  utilized  in 
its  original  configuration  if  desired.  The  basic  components 
of  the  system  are  described  below: 

a . T ro  f f 

Troff  is  a text  processor  similar  to  Tiroff,  and 
both  were  designed  at  the  Bell  Laboratories  by  the  same  au- 
thor (Refs,  and  R) . Troff,  however,  accents  additional 


I a 


__ — - 

commands  to  change  tycefaces  (hereafter  referred  to,  and 
later  defined,  as  "fonts").  Normally,  the  outout  from  Troff 
goes  directly  to  a oho t o t yoese 1 1 e r . There  being  no  such 
device  at  NFS,  Troff  has  oeen  modified,  and  its  outout  be- 
comes an  intermediate  file  which  is  orocessed  by  Vts. 

• b . V t s 

Vts  is  a virtual  tyoesetter,  a program  which 
taices  the  precrocessed  text  lines  from  the  file  from  Troff 
and  which  then  sets  the  reguired  digitized  character  defini-  I 

tions  into  plot  Duffers.  The  plot  buffers  are  sent  to  a 
Versatec  orinter/plotter. 

c . Fd  f 

Edf  is  a font  editor,  an  interactive  program 
that  enables  the  user  to  create  and  maintain  digitized 
fonts.  In  its  oridinal  form  it  processed  only  fixed  width 
fonts  of  a specific  size. 

d.FontLibrary  i 


The  original  font  library  consisted  of  four 
fonts.  Three  containec  the  standard  ASCII  character  set,  and 
the  fourth  contained  special  characters  for  setting 
mathematical  formulas. 

e . Display 

There  is  a display  program  which  will  plot,  on 
the  Versatec,  all  characters  in  a font. 


A* 
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The  system  comoonents  described  above 


were 


desianed  and  proarammed  by  Professor  G.L.  Barksdale.  They 
are  intended  to  manipulate  fixed  width  fonts#  the  charac” 
ters  of  which  are  all  16  oixels  wide  and  ?0  pixels  high.  A 
"pixel"  is  a unit  of  resolution  (a  oicture  element)  on  a 
plotter.  On  the  Versatec»  tnere  are  approximately  200  pix- 
els per  inch.  In  sett i no  digi fired  characters#  a plot 
buffer  represents  one  horizontal  line  (raster  line)  of  pix- 
els# i.e.#  20  plot  Duffers  would  need  to  be  sent  to  the  Ver- 
satec  to  plot  ("print")  a line  of  text.  Figure  1 illus- 
trates the  interplay  amona  the  various  system  tools. 


I 

1 


2.  Enhancement  Objectives 

The  oriqinal  objective  oT  the  thesis  research  was  to 
increase  the  font  library  to  include  variable  width  fonts  of 
various  sizes.  These  fonts»  3^  in  allf  were  obtained  in 
machine  form  from  the  Stanford  Artificial  Intelligence  La~ 
boratory  (SAIL).  Additional  objectives  were  to  modify  the 
system  components  to  handle  the  variable  width  fonts#  and  to 
add  to  Vts  a limited  plot  ( s i mu  1 aneous  t e x t /g  r aph  i c s ) capa- 
bility. In  conjunction  with  this  author's  thesis#  LT.  P.M. 
Dovle  adapted  the  Hershey  Character  Sets  for  use  in  graphics 
and  typesetting.  LT.  Hoyle  develooed  a program  which  con- 
verted the  vector  formatted  Hershey  font  files  to  digitized 


font  files#  a scaling  option  was  made  available  in  the 
converston  proaram.  The  mod i f i c a t i on s to  the  system  tools 
were  the  results  of  both  theses  (Ref.  5].  The  following  se- 
quence was  designed  to  attain  the  thesis  objectives: 

a.  Design  a UNIX  compatible  file  format  for  digi- 
tized font  storage. 

b.  Convert  fonts  from  SAIL  to  NPS  file  format# 
correcting  any  detected  errors. 

c.  Modify  Edt  to  handle  variable  width  fonts. 

d.  Modify  the  system  font  display  program  to  display 
variable  width  fonts. 

e . ify  Troft. 


g.  OocuiT’ent  tHe  new  system  (write  a user's  manual). 


h.  Document  the  oroaram  develooment  and  the  thesis 
research  (write  the  thesis). 


The  objectives  enumerated  in  a.  through  d.  were 
completed;  however,  their  comoletion  reouired  more  time  then 
was  anticioated  (primarily  due  to  the  debugqino  and  testing 
chases  of  oroqram  develooment).  Therefore,  objectives  e.  and 
f.  were  omitted.  In  their  places,  a program  called  Signmkr 
was  written,  Siqnmkr  sets  type  in  the  same  manner  that  Vts 
would  have,  nao  it  been  modified.  Add i t i ona I 1 y , its  design 
incluaed  the  caoat^ility  of  some  simple  text  processing  func- 
tions. npjectives  g.  and  h.  were  comcleted.  The  user's 
manual  was  published  seoarately  as  an  Technical  Note  (Ref. 
71  ana  received  distribution  as  such.  1 he  remainder  of  this 
thesis  documents  the  objectives  meet  and  is  concemea  pri- 
marily with  program  design  and  development.  The  final 
chapter  presents  conclusions  concerning  the  resulting  system 
C on  f i au  r a t 1 on  for  computer  typesetting  under  Uf>l^  and  some 
Ideas  for  future  developments  in  this  field. 
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SAIL  FOMTS 


A.  OESCRIPTIOM 


1 . Origin 


A font  is  a collection  of  character  images*  all  of 
which  are  of  the  same  stvle  and  heignt*  which  are  mapped 
into  some  character  set.  Fonts  are  in  oeneral  freely  ex- 
changed among  academic  institutions*  orimarily  through  ARPA. 
The  sail  fonts*  namea  for  the  agency  from  which  acouired* 
were  obtained  in  digitized*  mac h i ne- r eadab 1 e form  on  magnet- 
ic tape  fWef.  121.  There  were  3^  fonts  in  all*  and  they  are 
catagorizeo  as  follows: 


a.  oodoni  ana  ‘'ionie  fonts.  These  two  groups  of  fonts 
each  have  distinct  aesigns  ang  each  contain  variaple  width 
fonts  of  different  sizes  ang  styles.  Tooether*  they  account 
for  23  of  the  3R  fonts. 


b.  (iRFx  (Graphics).  Ihere  are  two  fixed  width 
fonts  which  provide  a limited  graphics  capability.  They  are 
useful  for  setting  flowcharts*  tree  structures*  and  simple 
graphs.  They  are  also  the  only  two  fonts  in  which  "kerning" 
occurs . 


c.  '^’ath.  There  are  five  fonts  that  contain  special 
mathematical  symbols  for  setting  formulas. 


d.  SAILIO 


This  font  is  the  only 


text 


oriented 


fixed  width  font  in  the  library. 

e.  SIGf^S.  There  are  three  fonts  which  are  large  and 
excellent  for  entitling  documents  ana  traking  signs:  SHDIS, 
S1GM22,  SIGNai. 

The  terms  useo  to  describe  fonts*  e.c.*  variable 
width,  kerning,  etc.,  and  the  meanings  of  font  ana  character 
dimensions  are  aiscussed  in  the  next  section.  Some  of  the 
acguirea  fonts  were  oriainallv  designed  at  h'lT,  others  at 
C'^U  (Carneni  e- Mel  Ion),  ana  the  remainder  at  Stanford.  Stan- 
ford generally  names,  or  has  renamed,  all  fonts  so  that  the 
trailing  character  or  numners  connote  size  in  gixels.  The 
scheme  for  naming  fonts  at  NPS  is  similar  but  denotes  size 
in  ooints,  the  traditional  crinter's  measure.  The  34  fonts 
added  to  the  library  are  listed  in  Taole  1. 


21 


SAIL  FOMTS 
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DO  i nt 

B 0 G 0 n i 
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1 0 
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1 0 
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BOJIO 

10 
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BDH 1 OX 
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80W12 

1 ?. 

DO  i n t 
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bDI  12 

12 

DO  1 n t 

Booon  i 

Bold 

80D12 

15 

DO  i n t 

Booon i 

BDR  15 

15 

DO  i n t 

booon i 

Italic 

BDI  15 

25 

DO  i n t 

Bocon i 

BDR25 

1 0 

point 

Non  i e 

NONS 

1 0 

point 

M 0 n i e 

1 1 a 1 i c 

NONSI 

1 0 

point 

i\  o n i e 

Bold 

NONSd 

10 

DO  i n t 

N 0 n i e 

Bold  Italic 

NONSBI 

12 

point 

Non  i e 

NONW 

12 

DO  i n t 

N 0 n i e 

1 1 a 1 i c 

NONWI 

12 

CO  i n t 

Mon  i e 

Rol  0 

NONWB 

12 

point 

Non  i e 

bold  Italic 

NUNWR I 

1 a 

DO  i n t 

N 0 n i e 

NONL 

la 

point 

N o n i e 

1 1 a 1 i c 

NONL  I 

1 u 

DO  i n t 

Non  i e 

bo  1 d 

NONLb 

la 

point 

N o n i e 

Bold  Italic 

NONLR  I 

10 

DO  i n t 

Graon i c 3 

GPFX  1 0 

1 y 

DO  i n t 

Gr aoh  i c s 

GRFX  M 

1 0 

DO  i n t 

Ma  t H 

M a T H 1 0 

1 5 

DO  i n t 

Math 

V A T o 1 3 

15 

point 

Vat  h 

MATHIS 

20 

point 

Vat*' 

MATH20 

21 

DO  i n t 

Wat  h 

MATH2  1 

1 0 

DO  i n t 

Del eoa t e 

sail  1 0 

15 

point 

Shadow 

1 

SHU15 

22 

point 

Sion 

SIGN22 

'» 1 

point 

S i qn 

SIGNUl 

(? , Font  / Character  Dimensions 

In  order  to  manipulate  fonts  and  the  characters 
within  them/  there  are  attributes  of  fonts  and  their  char- 
acters which  orovide  information  to  tyoesettinq  oroqrams. 
These  attributes  are  the  dimensions  and  accessing  informa- 
tion, 

a.  Font  Dimensions 

A font  is  c h a r ac t e r i ?en  by  its  height  and  its 
loqical  heioht/  the  two  most  significant  dimensions.  A 
third  dimension/  toe  width  of  the  widest  character  in  the 
font/  is  of  less  i'^oortance.  The  character  picture  of  each 
character  in  the  font  is  conceptually  set  in  a rectangular 
frame  which  is  as  high  as  the  font's  heiaht  and  as  wide  as 
the  character's  raster  width.  The  logical  height  is  the 
distance  from  the  toe  of  this  conceptual  frame  to  the  base- 
line/ the  imaginary  line  on  which  the  characters  sit.  For 
example/  "ascenders"/  such  as  an  "h"/  "1"/  or  "t"/  sit  on 
the  baseline/  whereas/  "descenders"/  suen  as  a "o"  or  "a"/ 
may  extend  below  it.  fwo  fonts  are  incomoatible  if  either 
their  heiahts  or  their  logical  heights  differ. 

Font  and  character  dimensions  are  measured  in 
pixels  which/  once  again/  are  units  of  resolution.  On  the 
Versatec  pr  i n t e r /p  1 o 1 1 e r / there  are  <200  pixels  per  inch. 
There  is  another  descriptor  of  font  height/  the  "point".  At 
200  Pixels  oer  inch/  one  point  is  approximately  2.ti  pixels 
or  about  1/72  inch.  Fonts  are  generally  referred  to  as  a 


" 1 0 

point  font",  an 

"p 

point 

font 

",  and  so  on. 

Point 

size 

i s a 

general  size  descriptor, 

0 i xe 

1 height  be i ng 

more 

exact  . 

For 

instance,  RUF'IO  i 

s 

a 10  Point 

font  which  is 

2b 

pixels 

high 

. fiOfjS,  another 

I Q 

00  i n t 

font 

, is  only  ^ 5 pi 

X e 1 s 

high. 

Fonts  are  either  fixeo  or  variaole  wiath.  Being 
a fixed  wiath  font  imolies  that  all  cfiaracters  within  the 
font  have  the  sa"ne  wioth.  Being  variable  wiath  irrclies  oth- 
erwise. Variances  in  character  widths  are  a significant 
thorn  in  the  text  Drocessinq/ccmouter  tvnesettinq  interface. 
The  text  processor  reouires  character  widths  to  perform  line 
j us  t i f i C a t i on  . Table  2 is  an  analysis  of  the  charact-er 
widths  for  "/j's"  trcm  various  families  of  both  fixed  and 
variable  width  fonts.  i^n  inspection  of  the  tat'le  snows  the 
lac<  of  any  consistent  relationship  between  font  height  and 
character  width  for  fonts  in  general.  As  a rule  then,  Troff 
cannot  compute  a character  width  from  the  font  height.  How- 
ever, by  examining  the  error  percent  based  on  a 10  point 
reference  within  specific  families  of  fonts,  there  appear  to 
exist  useable  r e 1 a t i on 3 n i ps  within  each  family.  By  incor- 
porating tables  within  Troff  for  each  of  the  various  fami- 
lies, character  widths  could  be  computed.  The  specifica- 
tions of  such  a scheme  were  not  fully  i n ves t i ga t ed , but  the 
method  appears  to  be  a desirable  alternative  to  the  access- 
ing of  font  files  by  Troff  for  the  character  widths  reeded 
for  line  j u s t i f i C a t i nr  . Finally,  fonts  may  be  of  different 
styes.  NO'JS  is  an  "upright"  font?  fjQfuSl,  an  italicized  ver- 
sion; and  ‘jQIjSR,  a bold  (heavier!  version. 


Font  Heiqht-Character  Aidth  Analysis 


FONT 

HT ( pt  ) 

C N ( a c t ) 

C i'J  (comp) 

XERROR 

Nuns 

1 0 

25 

23 

0.00000 

NGNh' 

12 

27 

27.6 

2.22222 

MCNL 

1 a 

33 

32.2 

2.42424 

NONSl 

1 0 

21 

21 

0.00000 

NON  W I 

12 

26 

25.1 

3,46135 

NONLI 

14 

32 

2R.3 

8.43721 

NOtiSt! 

10 

23 

23 

0.00000 

12 

2« 

27.6 

4.827b3 

NONLB 

1 4 

34 

32.2 

5.2R442 

BOK  1 0 

10 

25 

25 

0.00000 

BOf^  12 

12 

27 

30 

11.1111 

HDR  15 

15 

3F 

37.5 

1.31516 

6DR25 

25 

63 

62.5 

0.7R342 

Table  2 

h . 

Character 

Oi mensi ons 

Fiqure  2 illustrates  font  and  character  aimen- 


sions.  The  raster  wioth  is  the  wioth  of  the  character  pic- 
ture ana  is  usea  in  accessing  toe  stored  character  picture. 
The  cnaracter  widto  is  the  soace  (in  pixels)  the  text  pro- 
cessor will  allocate  a particular  character  on  a line/  and 
it  nay  Differ  from  the  raster  width.  Character  width  and 
raster  width  differ  only  when  kerninq  occurs.  Kernino  is  a 
techniaue  whereby  characters  may  be  set  more  closely  to 
minimize  white  space.  To  a font  that  allows  keminq,  the 
left  and  right  kerns  define  how  close  adjacent  characters 
may  be  set. 
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FONT/CHARACTER  DBIENSIONS 


Previoua  character 


Next  character 


F i Qu  r e 


In  setting  cHaractprs  with  kerning,  the  bit  Dictures  within 
the  kerns  of  adjacent  characters  must  be  "anaea".  If  the 
result  of  the  "ang”  is  clear  (all  zeros),  then  no  character 
picture  overlap  will  occur,  ang  the  kerning  is  permitted. 
Otherwise,  to  prevent  the  overlap,  kerning  is  aborted^  and 
the  character  spacing  must  be  determineo  by  raster  width. 
Decisions  on  kerning  are  made  wrpnever  either  of  two  adja- 
cent characters  nave  coincident  nonzero  kerns,  i.e.,  either 
the  rignt  kern  of  tnp  left  character  is  ncnzero  or  the  left 
kern  of  the  right  character  is  nonzero  (or  both).  The  capa- 
bility of  setting  fonts  with  kerning  was  neither  a orooerty 
of  the  original  system  nor  was  it  an  ennan cement  objective? 
however,  to  facilitate  i s future  implementation,  kerning 
information  is  store a in  character  oefinitions  and  can  be 
updated  by  the  font  editor,  Edf.  The  two  fonts  where  kern- 
ing occurs,  GRFXIO  and  GWFxia,  reouire  no  special  treatment 
Oy  typesetting  programs. 

Additional  character  dimensions  are  solely  for 
accessing  the  bit  picture  of  the  character.  The  rows-from- 
hop  (rft)  descrioes  the  nu""oer  of  blan<  (all  zero)  raster 
lines  above  the  character  picture  in  the  frame?  thus,  this 
part  of  the  character  picture,  which  is  blank,  need  not  be 
stored.  Dat a-row-count  (drc)  is  a count  of  the  number  of 
raster  lines  which  form  the  visible  Picture  ang  which  are 
stored.  Rlank  raster  lines  reguireo  to  fill  out  the  bottom 
of  the  picture  frame  are  not  stored,  and  the  numoer  of  plank 
lines  needed  is  computed  using  the  font  height,  rft,  and 
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drc.  Fiaure  3 illustrates  that  portion  of  the  picture  which 
is  storeo  and  the  full  picture  which  is  exoanoed  by  a pro- 
a r a»r . 

3.  SAIL  Font  File  Format 

The  SAIL  fonts  were  receiweo  as  digitized  files 
written  on  a taoe  by  a POP-10  at  Stanforo.  The  PDP-10  has  a 
3h-bit  word  with  four#  '’-bit  bytes  oer  word;  therefore^ 
read  inn  files  from  the  tape  into  a PDP-11  file  aid  not  leave 
the  information  in  a readily  useable  format.  For  each  word 
of  data  from  the  PDP-10,  six  w-tiit  bytes  on  the  PDP-11  were 
required#  the  two  high  order  bits  of  each  byte  beina  wast- 
ed. Conversion  to  a -^ore  useable#  compact  font  file  format 
was  mandatorv.  The  SAIL  and  MPS  font  file  formats  are 
similar  by  design;  however#  a few  minor  chanaes  have  result- 
ed in  significant  memory  savinas.  Basically#  a SAIL  font 
file  is  broken  into  three  sections: 

a.  header  Tatile 

At  the  beoinninq  of  the  file  is  a header  takile. 
The  Character  code  collating  sequence  is  the  indexing 
mechanism  for  the  table#  ang  the  table  provides  random  char- 
acter definition  accessino#  an  absolute  necessity  when 
minimizing  execution  times  for  setting  tyoe.  The  table  con- 
tains l^b  words#  the  left  half  of  each  word  holding  the 
character  width  and  the  right  half  being  a pointer  to  the 
character  definition.  A lero  character  width  in  any  posi- 
tion imolies  that  the  particular  character  is  not  defined  in 
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the  f ont  . 

b,  P^ont  Oimensions/'OescriDtion 

The  font  ci  .Tensions  follow  the  header  tanle:  the 
font  heiqht»  the  TaxiTun  character  wirJth#  and  the  font  loqi” 
cal  height.  iTmediately  followino  the  dimensions  is  an  op- 
tional ASCII  descrirtion  of  up  to  characters.  Five 

characters  are  oacxed  into  each  36- bit  word*  and  the 
descriotion  is  terminated  by  an  all  zero  byte  ('\0'). 

c.  Character  Definitions 

The  remainder  of  the  file  contains  the  character 
definitions  pointed  to  by  the  header  table.  Fach  definition 
follows  an  identical  fomat  and  contains  character  dimen- 
sions* tne  bit  picture*  and  the  picture  accessing  informa- 
tion. 

Fiaures  ^ and  S illustrate*  respectively*  the 
SAIL  file  am  character  definition  formats. 
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PICTURE  STORAGE/EXPANSION 
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Exranded  Character  Picture 
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SAIL  FONT  FILE  FORMAT 
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SAIL  CHARACTER  DEFINITION 


RW  = Raster  Width 
CC  = Character  Code 

WC  = Total  number  of  words  in  character  definition 

LK  = Left  Kern 

RFT  = Rows-from-top 

DRC  = Data-row-count 

CD  = Character  Dimensions 

CBP  = Character  Bit  Picture 
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Character  Set 


The  *SCII  and  SAIL  character  sets  are  two  different 
^anoinns  of  characters  into  a cone  (0-12f*).  Figure  o il- 
lustrates the  differences^  while  figure  7 displays  the  com- 
plete sets.  Where  the  ASCII  set  contains  contro_J  charac- 
t ers  f the  TjAIL  set  contains  some  additional  orintable  char- 
acters. This  situation  was  annoying  since  there  were  no 
harg-wireo  keyboards  at  '.HS  with  which  to  select  these  char- 
acters. Ccnseduent 1 V / to  select  characters  occuoyinq  ASCII 
cocie  Dositions  which  are  rot  printanle,  text  orccessing  and 
typesetting  programs  have  software  escape  mechanisms  to  get 
at  these  characters.  Tne  escape  mechanism  is  aescritiea  in 
Chanter  a . 


SAIL/ASCII  DIFFERENCES 
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SAIL  CHARACTER  SET 
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List^ont  an'1  E.rror  Detection 


oreviously  "tescrineT»  the  font  tiles  reaa  in  from 
tace  reauireri  conversion  to  a format  more  suitable  to  UMIX 
and  the  PL'P-M.  Prior  to  converting  the  files»  Listfont  was 
written.  Listfont  was  desianed  to  examine  a Stanford  font 
file»  iqriorino  wasted  bits  and  interpreting  Ib-Dit  PDP-10 
halfworos  as  lb-bit  PDP-11  full  words.  Listfont  reads  in 
the  heaoer  table;  it  extracts  tne  font  dimensions  and 
description,  aisplayir'j  them  cn  tne  CPT  screen,  and  oroceeds 
to  process  each  character  definition.  In  processinc  each 
character  definition,  Listfont  performs  computations  to  en- 
sure that,  if  the  character  ang  raster  widths  differ,  t^ere 
IS  valid  kernina.  Also,  Listfont  checks  and  flags  nonzero 
left  <ems  gf  characters  wnosp  raster  and  character  widths 
are  eoual.  Additionallv,  using  rnp  picture  accessina  infor- 
mation, Listfon*-  verifies  picture  storage.  An  optional  ”-l" 
argument  to  Listfont  causes  tne  individual  character  dimen- 


s i ons  and 

picture  to  be 

1 i 

sn  I 

avea  on  the  ChT 

sc  reen . Anot  h- 
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error  wnij;,-. 

Li 

St  f 

ont  detects  is 

the  presence 

0 f 

ext  raneous 

bvtes  in  the 

f i 

I e . 

I n 

prccessinu  a 

f i 

I e , 

Listfont  counts 

each  byte. 

A 

comoar i son 

of  this  byte 

t a I 

Iv  with  the  file 

size  inaicat 

e d 

rv  an  "Is  -1  filename"  proves  the  absence  or  presence  of 
SUCH  “xtrareous  Cvtes.  The  time  invested  in  rre  desion  and 
writino  of  Listfont  was  returned  by  its  success  in  detecting 
errors  of  the  above  rvn«s.  Two  files  had  characters  which 
had  norzero  left  xerns  and  identical  character 


t;s 


and  raster 


w i n t h s 


l"ijpther"'Ofe» 


two  oth«>r  fil*»s  were  founa  to  contain 


several  occurrences  ot  extraneouSf  unuseo  bytes.  Sucti  error 
detection  was  innortant  in  that  it  cjreatly  assisted  in  the 
oesion  of  Transtile»  the  oroora'n  to  convert  font  files  from 
the  Stanforo  to  the  'IPS  format.  Iransfile  uses  the  same  er- 
ror aetection  tecminues  ano  accomnlisnes  error  correction 
concurrent  1 /. 

FiLt  COr^VF.wSIG'l 

1.  ‘iHS  Font  File  Format 


G 1 V e n 

the  ex' 

iStino  Stanford  font 

file  format*  toe 

d e s i d n 

C f an 

•;os 

format  was 

not  d i 

f f i c u 1 t . r h 

9 r were 

se ve  ra 1 

c r 1 ter 

i a f n r 

the  de s i on  . 

First* 

the  aesiqn 

^ aa  to 

be  c 0^ 

oat i b 1 e 

with 

ij  Mix  [ h e f . 

1 1 1 and  the  PGP- 1 1 

( 1 b-b  i t 

wora  orocessina).  Secon-i/  fil»  size  neerieo  to  oe  minimized 
to  facilitate  tvcesettina  in  t^e  minicomouter  environment, 
^'nd#  tnird»  rhe  former  neeoeri  to  orovidef  as  did  Stanford's* 
the  random  accessina  cf  character  definitions.  The  I'vPS  font 
file  format  is  illustratoa  in  fioijres  F ano  Q.  It  is  brcixen 
into  tnoee  sections: 


NPS  FONT  FILE  FORMAT 


•Word 

0 

02' 


16-bits 


BKP 

CW 

EIP 

BKP 

-CW 

RYP  ! 
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cc  000 
cc  001 
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0376 

0400 

0403 


ElCP-i.  GW 


ElIP. 
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Characte 
Definition 
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Characte!? 

Definition 


Header  Table 


cc  0177 
■Font  Dimensions 


Font  ASCII 
Description 


Character 

Definitions 
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NPS  CHARACTER  DEFINITION 


Character 

Dimensions 


Character 

Bit 

Picture 


F i nu  I'p  ^ 


a 


Header  Table 


The  header  table»  at  the  beainninq  of  the  fi1e» 
contains  two»  Ib-oit  words  for  each  of  the  possible  l^B 
characters  in  the  font.  The  indexing  mechanism  to  the  table 
is  the  character  code.  The  first  worn  of  each  oair  contains 
the  character  width  in  the  rightmost  byte.  The  pointer 
StructurOf  indicating  the  location  of  the  character  defini- 
tion in  the  file>  consists  of  a blocix  count  (512 
by  tes/b  1 oc  ic ) in  the  leftmost  byte  of  the  first  word  ana  an 
additional  oyte  offset  containeo  in  the  second  word.  A max- 
imum blocW  count  of  255  and  a maximum  byte  count  of  32K  al- 
low for  font  files  to  approach  IhOK  pytes.  w zero  in  the 
first  word  in  any  character  position  in  the  header  table  im- 
plies that  the  particular  characfen  is  not  defined  in  tne 
font. 


b.  Pont  Oimensions/Oescriotion 


Only  three  dimensions  are  stored.  Fort  height/ 
maximum  character  width,  and  font  logical  heiaht  are  each 
stored  in  worgs.  The  ^SCIl  description  follows  and  is 
stored  one  character  oer  byte.  It  is  terminated  with  a 
•\0'. 

c.  Character  Definitions 


Here 

, the  NPS  format 

provides 

substant i al 

s a V - 

i nns  i n memory  . 

Four  character 

fjimensions 

are  stored, 

each 

in  a full  worg; 

the  raster  width 

, left  X e r n 

, r f t , and 

drc  . 

The  raster  lines  which  comorise  the  visible  Dortion  oT  the 


character  picture  are  stored  sequentially  on  bvte  boundaries 
followina  the  drc. 

d.  File  ^ovantaqes 

The  header  table  in  the  MRS  format  is  twice  the 
size  of  that  in  the  Stanford  version;  however,  each  NPS 
character  oefinition  stores  only  four  dimensions  as  opposed 
to  the  six  in  a Stanford  character  definition.  This  trade- 
off results  in  no  real  savinns  in  memory.  Significant  Sav- 
inas occur  in  the  storage  of  the  raster  lines  of  character 
pictures.  In  the  Stanford  version,  raster  lines  wider  than 
18  pixels  occupy  one  full  36- bit  word  with  the  following 
raster  line  oeainnina  at  the  next  word  ocunory;  hence,  up  to 
17  bits  could  be  wastec.  Tn  the  MRS  version,  raster  lines 
begin  on  bvte  boundaries?  therefore,  no  more  than  7 bits 
will  ever  be  wasted  for  any  raster  line.  *s  an  example,  as- 
sume a fixed  width  font  of  19  pixels  is  created  and  that 
2,01o  total  raster  lines  are  needed  to  represent  all  charac- 
ter pictures.  The  NRS  format  would  reauire  6,0b8  bytes  or 
uS,i8U  bits  (10,080  of  which  would  be  wasted).  The  Stanford 
format  would  require  2,01b  words  or  72,576  bits  (30,272  of 
which  would  be  wasted).  The  MRS  format  would  have  stored 
the  equivalent  information  in  2/3  of  the  memory  required  by 
the  Stanford  format.  Bern  (Ref.  21  has  stated  that  "as  a 
rule  of  thump,  for  100  printing  characters  at  10  point  size, 
approximately  8,000  (16-bit)  words  of  storage  are  required." 
SAlLlO  (120  printable  characters),  BDRIO  (120),  and  MONS 


UO 





(9fa)  have  file  sizes  of  BOlO,  hl'lB,  and  5872  bytes  respec- 
tively. The  comparison  is  a general  one  in  that  Berg's  rule 
specified  no  particular  olottino  density.  For  example*  if 
the  rule  were  applicable  to  a plotting  device  with  a plot- 
ting density  of  ^00  pixels  per  inch  (twice  that  of  the  Ver- 
satec)*  then  one  could  conclude  that  the  NFS  font  file  for- 
mat generally  reguireo  memory  in  accordance  with  the  rule. 

2.  Transfile  and  Error  Correction 

Transfile  was  desianed  and  written  to  transform  font 
files  from  the  Stanford  format  to  the  NFS  format  and*  in  do- 
ing so*  to  detect  and  correct  anv  errors.  Transfile  takes 
pairs  of  arguments*  transforming  the  first  argument  of  a 
pair*  which  mgst  name  a Stanford  file*  to  an  tjFS  file  which 
is  given  the  name  of  the  second  argument  of  the  pair.  An 
odd  numper  of  arguments  causes  Transfile  to  exit.  In 
transforming  a file*  the  program  first  creates  the  NFS  file 
ana  writes  out  a blank  header  table.  It  then  examines  the 
header  taole  of  the  Stanfora  file  to  determine  the  number  of 
characters  in  the  font*  reads  in  tne  font  dimensions  and 
description,  and  processes  the  character  definitions.  A$ 
does  Listfont*  Transfile  ignores  the  two  wasted  high  order 
bits  of  each  nyte  ana  compacts  16-bit  POP-10  halfwords  into 
lb-bit  FOF-11  full  words.  It  writes  out  the  font  dimensions 


and 

the  oescriotion*  if  any. 

Transfile  also 

w p i 

t es 

out 

the 

fJFS 

filename  in  the  event  that 

the  Stanford 

f i 

1 e 

had 

no 

desc  r 1 pt i on  . 
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A.  EDF...THEN 

Originally*  was  desianed  by  Professor  Barksdale  to 
orovide  the  ceoability  of  creating  and  editing  a particular 
class  of  fixed  width  fonts*  all  characters  being  16  pixels 
wide  ana  20  pixels  nigh.  Edf  was  an  interactive  program  im- 
plemented in  the  programming  language  C.  In  its  edit  mode* 
Edf  would  read  an  entire  font  file  into  a character  array 
(128xm0).  Each  character  definition  was  accessed  by  its 
character  code  CO-127),  and  its  bit  picture  consisted  of  the 
next  '-to  bytes*  two  bytes  representing  one  raster  line  in  the 
character  picture.  The  simple  font  design  ang  data  struc- 
ture facilitated  easy  character  definition  accessing  for 
listing*  editing*  or  celeting,  etc.  In  the  create  mode*  the 
array  (128x40)  was  cleared*  and  the  user  began  with  all 
characters  having  blank  pictures.  Edf  oossesed  an  efficient 
command  handling  mocule  and  input  several  and  display 
routines.  Using  these  routines  as  a skeleton*  Edf  was 
modifieo  to  edit  and  create  fived  and  variable  width  fonts 
of  different  sizes. 


B 


MODIFICATION  REUUIREMENTS 


Prior  to  modifying  Edf  to  manipulate  variable  width 
fontSf  certain  reouirements  were  first  identified: 

1 .  File  F o rma t 


Edf  needed  to  be  able  to  interface  with  the  newly 


designed 

f ont 

file 

format . 

It  had  to 

be  able 

to  access 

character 

de  f i n i 

t i on s 

/ font  d i 

mens  ions  and 

a e s c r i p t 

ion/  and 

it  had 

to  be 

ab  1 e 

to  write 

out  edited  or 

created 

fonts  in 

this  new  format . 

2 . Commands 

From  tre  set  of  commands  available  in  tre  oricinal 
version  of  Edf»  a minimal  subset  of  commands  needed  to  be 
implemented.  This  subset  could  be  defined  by  excluding  the 
"nice  to  have"  commands.  The  commands  available  under  tne 
improved  version  of  Eof  are  described  later  in  this  chapter. 

3.  Memory  Reouirements 


memory 
in  the 
t u r es 
buffer/ 
t i on » 
able  to 


Edf  needed  to  be  able  to  deal  »ifh  fluctuating 
reouirements  cue  to  the  dynamic  sizing  of  characters 
fixed  and  variable  width  fonts.  Static  data  struc- 
could  not  provide  such  flexibility.  Specifically/  a 
large  enougn  to  hold  the  biggest  character  oefini- 
would  be  needed.  Additionally/  Edf  would  have  to  be 
store  modified  character  definitions  of  varying 


sizes  until  the  edited  or  created  file  could  be  written  out 


Eait  Status 


The  editinn  and  creating  of  variable  ang  fixed  width 
fonts  increases  the  length  of  the  interactive  session,  and 
the  added  complexity  of  varying  character  dimensions  can  of~ 
ten  cause  a user  to  forget  what  has  been  accomplished  and 
what  remains  to  be  done  during  the  eoit  session,  Edf  needed 
to  be  able  to  provioe  some  table  or  display,  showing  the 
status  of  each  character  in  the  font,  i.e.,  undefined,  de- 
fined but  unmodified,  modifi^o,  deleted,  etc. 

5.  Oimensions 

In  audition  tc  being  able  to  change  character  pic- 
tures, the  user  must  be  able  to  change  font  and  character 
dimensions,  and  any  change  must  be  checked  to  ensure  that  it 
is  a valid,  reasonable  one.  As  examples,  a user  must  not  be 
allowed  to  increase  the  character  width  of  a particular 
character  to  a value  greater  than  its  raster  wioth,  nor  must 
he  be  allowed  to  change  a font's  height  to  a negative  value. 
Edf  must  be  aole  to  compute  the  new  rft  and  drc  of  a modi- 
fied character  picture?  however,  Edf  should  not  be  responsi- 
ble for  ensuring  that  the  modified  picture  is  accurately 
described  by  all  character  dimensions.  Egr  instance,  if  a 
user  were  to  change  the  picture  of  the  character  "a",  making 
it  shorter  and  skinnier,  Edf  must  be  anle  to  compute  and  up- 
date the  rft  and  drc.  The  user  would  then  be  responsible 
for  making  the  appropriate  adjustments  to  the  character  ano 
raster  widths  of  "a".  Such  restrictions  are  necessary  to 


limit  Droqram  overheaa. 

C.  CUMCEPTS  and  techniques 
1 . Concept  s 

There  are  several  concepts  which  make  up  the  confi- 
quration  of  the  interactive  font  ed i t /c rea t i on  process.  A 
character  buffer  holds  the  character  definition  being  modi” 
fied»  a linked  list  manaoes  the  modified  character  defini- 
tions. and  a file,  if  in  the  edit  mode,  represents  the  in- 
formation (character  definitions)  requiring  changes.  The 
UMa  system  routine  Alloc(II)  [Ref.  13)  provides  temporary 
memory  to  store  mccified  charcter  definitions.  Figure  10 
illustrates  the  file/work  area  configuration. 


Edf  FILE/WORK  AREA 


Modified  Character  Definitions 


F i au  n «*  10 


T ec  h n i ques 


a.  Current  Character 


"Current  Character"  (cc)  is  a pointer  to  a char- 
acter Dosifion  (0-127)  in  the  ^ont  being  eoiteo  or  created. 


Any 

command  takes 

the 

character 

definition 

pointed 

to 

by  cc 

as 

i t s operand. 

The 

character 

definition 

referred 

t o 

by  cc 

is  never  loadeo  into  the  character  buffer  unless  sone  com- 
mand reauires  it.  Fd^  rromots  with  the  octal  value  of  cc» 
initially  0,  followed  by  ">".  The  current  character  may  be 
incremented^  decremented#  or  set  to  any  value  in  the  range 
0-127.  .'iraoarouno  occurs  automatically  when  incrementing 
above  12/  or  when  decrem»ntina  belcw  0.  whenever  cc 
changes#  fcdf  aeter-ines#  before  e*ecutino  any  command#  if 
the  character  definition  in  the  buffer  has  been  modified. 
If  so#  tof  reads  the  modified  definition  out  to  the  linked 
list  and  then  executes  any  awaitino  command. 


b.  Character  Buffer 


The  character  ouffer  is  aOOO  bytes  long  and  is 
large  enouah  to  hold  the  biogest  character  allowed  within 
the  limitations  of  font  height  and  character  width.  Edf 
will  edit  or  create  fonts  uo  to  120  pixels  (about  b2  point) 
in  height  and  characters  uo  to  2‘7S  pixels  wide.  There  is  a 
routine  responsible  ^or  loading  character  definitions  into 
the  Character  buffer.  vihonever  a command  reauires  a defini- 
tion# this  routine  will  first  inspect  a global  flag  which 
indicates  if  the  definition  pointed  to  by  cc  is  already  in 
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L. 


the  buMep.  If  the  aefinition  pointed  to  by  cCf  the  operand 
for  any  cop’p'andf  is  not  in  the  buffer,  this  routine  will 
load  it  into  the  buffer  fron  one  of  two  blaces.  First/  de- 
finitions which  have  been  previously  modified  or  definitions 
in  a font  beina  created  will  be  loaded  into  the  buffer  from 
the  linked  list.  Otherwise;  the  definition  is  accessed  and 
loaded  from  the  file  beina  edited.  In  loading  the  buffer, 
the  character  dimensions  (raster  width,  left  kern,  rft,  and 
drc)  are  stored  in  the  first  eight  bytes.  Then,  using  the 
rft  and  the  raster  width,  th<»  reouired  numner  of  blank  lines 
are  inserted  into  the  buffer.  For  example,  a raster  width 
of  W reduires  5 bytes  for  storage.  If  the  rft  were  then 
y blank  lines  or  1 c’ ( ‘4  x 3 ) zero  bytes  would  be  inserted. 
Next,  the  routine  uses  the  drc  and  raster  width  to  read  the 
digitized  portion  of  the  character  picture  into  the  buffer, 
and,  finally,  using  the  rft,  drc,  and  font  height,  it  com- 
putes and  inserts  the  necessary  number  of  blank  lines  needed 
to  complete  the  character  picture. 

C.  Character  t^icture 

The  character  picture  was  expanded  when  the 
character  definition  was  read  into  the  buffer.  The  picture 
is  accessed  beginning  at  the  ninth  byte  ano  is  oisplayed  on 
the  CWT  screen  with  line  numbers  from  0 to  "font  height-1". 
The  width  of  the  matrix  in  which  the  character  picture  is 
displayed  is  enual  to  the  number  of  bits  in  the  bytes  re- 
duired  to  store  a raster  line;  therefore,  unless  a 
character's  raster  width  is  a multiple  of  F,  its  displayed 

UP 


oict'jre  will  make  the  character  aonear  wider  than  normal 


i . e . , 

i f a 

character's  raster 

width 

i 

s 

1 7 and  the  font 

he i qh  t 

is  20 , 

then  the  character  oi 

c t u r e 

w i 

1 1 

be  displayed 

i n a 

20x2a 

matrix,  since  5 bytes 

(2a  b i 

t S 

) 

are  requ i r ed  to 

hold  a 

raster 

line. 

rl.  Linked  List 

The  linked  list  contains  a node  Tor  each  modi” 
tied  charcter  definition.  E,acn  node  contains  the  character 
coder  wnich  is  the  ordering  criteria  for  the  list  (the 
lowest  code  is  olaced  at  the  head  of  the  list)/  a cointer  to 
the  block  of  memory  (rrovioed  by  Alloc(II))  holdina  the 
character  definition,  the  status  of  the  character's  modifi- 
cation ("m" - modified,  "i"-includ'*o,  or  "d" - deleted),  and  a 
oointer  to  the  next  none  in  the  list.  A dummy  node  with  a 
character  code  of  3(fh77  marxs  the  end  of  the  list. 

e.  l^on  t /C  h a r ac  t e r Dimensions 


Having  adoed 

0 r 

changed  a character  picture, 

the 

user  may 

want  to  Change 

0 r 

nay 

need  to 

Change  character 

d i - 

men  s i on  s . 

Also,  he  ma v w 

i s h 

t 0 

c h anae 

font  d i mens i ons 

o r 

the  font  descriotion.  There  is  an  interactive  module  which 
IS  quite  versatile  in  allowing  these  chanaes.  The  module  is 
descrined  in  the  command  desc r i ot i ons  . It  disolays  a set  of 
instructions  ucon  entry  and  h;^s  a uniaue  crom.otinq  symbol. 


2 


L 


50 


f.  .'Vritinn  Out  a Pont  FHe 

In  wPitinc  out  a file»  Edf  first  writes  a blank 
head<»r  t at' ) e tollowPd  by  the  font  difnensions  and  descrip- 
tion. Then,  oeoinninq  at  character  code  0,  Edf  incorporates 
modified  character  definitions  from  the  linked  list  with  un- 
chanaed  definitions  from  tne  file.  It  maintains  a byte 
count#  in  51^-Oyte  blocks  and  bytes#  of  bytes  written.  Once 
the  last  definition  has  been  written  out#  Eof  seeks  to  the 
beoinnina  of  the  new  file  and  writes  in  the  new  header 
table.  Eof  will  remove  the  new  file  from  toe  directory  if 
no  character  definitions  were  written,  i.e.#  the  user  wrote 
out  a font  in  which  he  had  deleted  all  characters  durinq  the 
edit  session.  As  a final  Gesture#  Edf  displays  the  new  file 
byte  size  in  decimal  before  ouittinq. 

D.  capabilities 

1.  Invotcinq  Edf 

The  Current  version  of  Edf  is  considerarly  laroer 
than  its  oredecessor#  a orowtr  resulting  from  the  aodition 
of  modules  to  manipulate  the  more  comcle*  and  more  dynamic 
format  of  tne  new  font  files.  Cr««atino  a font  may  be  accom- 
plishetl  by  one  of  several  means.  First#  a call  to  Edf  with 
no  arguments  indicates  that  the  user  desires  to  create  a 
font  from  scratch.  The  user  must  specify  the  characteris- 
tics of  the  new  font  and  then  use  the  "a"  (add)  command  tq 
create  specific  characters  at  eacn  character  position.  We- 
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oeatinq  this  process  tor  12rt  characters  can  becorre  exceed 


inqlv  tedious.  A nore  efficient  option  is  to  create  only  a 
few  new  characters  ana  to  then  use  the  "i"  (include)  command 
to  include  other  characters  from  a compatible  font.  third 
option#  sc^ewnat  similar  to  the  second#  is  to  use  the  "d" 
(delete)  command  to  remove  unwanted  characters  from  a 
selected  oase  font. 

To  edit  an  existinq  dioitized  font  file#  Edf  re- 
quires an  aroijm, ent  comsistinn  of  either  a fort  file  name  or 
a complete  path  name.  In  tne  first  case#  the  font  editor 
assumes  that  the  fon^  is  located  on  the  directory 
“/. fonts. ul/^ont/"  a-n  c r eoenas  that  strinq  to  the  argument 


before  issuing 

a system 

call  to 

ooen 

that 

file. 

If  a com- 

olete path  name 

is  used  # 

Edf  'will 

0 P n 

that 

font  f 

ile.  If 

the  font  file 

is  m i s s i 

n g or  if 

the 

font 

tile  con 

tains  in- 

valid  information#  then  Edf  will  exit  with  an  appropriate 
error  message.  ^ nershey  font  [ref.  51#  digitized  to  any 
desired  size  ang  suoject  to  the  limitations  discussed  later# 
can  also  oe  edited.  References  5 ang  7 provide  excellent 
descriptions  of  the  dppsrev  fonts.  Some  examples  of  valid 
calls  to  tdt  ar<»  listed  below: 


edf 

This  indicates  that  the  user  desires  to  create  his  own 
font.  he  may  give  it  any  name  when  he  writes  it  out#  end~ 
ing  tne  edit  session. 


ed  f 3 I GNa 1 


The  user  wants  to  edit  SIGM^l  on  "/, fonts. Ol/font" 


edf  / u s p / do V 1 e / f on t s / H T P a ? 


The  user  wants  to  edit  an  existinq  Hershey  font  file 
called  hTPU2»  a Triolex  Ron. an  font  at  ^2  Doint»  on  directory 
'Vusr/dov  1 e / font  s/"  . 


edf  HSP20 


The  user  wants  to  edit  an  existing  Hersney  font  file 
called  nSP20f  a Sinolex  Renan  tont  at  20  ooint>  on  directory 
"/.fonts. 01/font/". 


edf  -HGE  56 


The  user  wants  to  create  a dershey  font  file  in  the 
Gothic  Fnqlish  tyce  at  5b  noint.  He  mav  write  it  to  any 
directory  after  it  has  been  digitized. 


•df  -HCS 


The  user  wants  to  oroate  a Horshey  font  file  in  Conolex 
Scriot  tyre.  T -w>  ro'nt  swe  defaults  to  10  ooint»  and  tre 
font  nay  be  written  tc  any  dtr*>cfory  at  the  conclusion  of 
the  edit  session. 


Co'Timanrls 


The  basic  co"’'ran<i  line  consists  of  three  oarts: 


current  character  selector/  the  comfrand  itself/ 
mentS/  if  any/  to  the  coimann. 

I a ) <nui^be  r > 


I 


Chanoe  the  current  character  to  <nufrber>.  The 
nunuer  nay  be  octal  (oreceaed  by  a zero)  or  decimal.  Any 
nunber  greater  than  127  is  converted  to  0/  and  anything  less 
than  0 is  convertec  to  127.  Any  conmana  nay  acoenoea  to 
<number>.  The  effect  is  to  change  t^e  current  character 
first  and  tnen  to  execute  the  aooended  connana. 

Exanoles:  0176/  0/  Ibl/  7^c  0 2S/  Iba. 


b ) t ; - 


Increnent  fdecrenent)  the  current  character.  rtrao“ 
around  occurs  as  in  <number>  above,  hither  <t>  or  <->  nay  be 
used  out  not  both  on  t^e  sane  connand  line.  Any  connano  nay 
be  apoended  to  either/  and  the  effect  is  to  increnent  (de- 
crenent)  the  current  character  first  and  then  execute  the 
connand.  Only  one  or  nay  be  used  on  a connand  line. 


t X ano 1 e s : 


c)  (<number>l  ! 1 + ] { 1-] a 


Add  a new  character  to  font  at  the  current  char- 
acter nos)tion.  The  "a"(aod)  co-rmand  is  complex.  A 
"o''(Darameter)  command  is  executed  automatically.  The 
oisplayed  instructions  to  input  the  dimensions  of  the  new 
character  must  be  followed.  The  new  character  is  beinq  de- 
fined at  the  current  character.  After  exiting  the  parameter 
command  looo»  the  user  may  use  the  "c"(chanqe)»  "e"(edit)» 
"s"(snift)»  or  "l"(list)  commands  to  form  the  desired  char- 
acter picture.  The  character  buffer  has  previously  been 
zeroed.  If  the  user  uses  <number>»  or  to  chanae  the 
current  character  before  he  is  satisfied  with  the  new  char- 
acter picture,  the  u n s a t i s f ac t o r v picture  is  stored.  If  this 
happens,  the  character  picture  may  be  relisted  and  changed. 

Examples:  +a,  -a,  USba,  l*5a,  a. 


d)  [<number>l  ! If)  I f-Jc  I<num!'er>)  [<numDer>J 

Chanoe  lines  "s"  throuc^h  "e",  promoting  for  each 
line.  "c"  alone  sets  "s"  to  0 and  ”e"  to  "heiqht-1".  "c" 
followed  bv  one  number  sets  both  "s'*  and  "e"  to  that  number, 
"c"  with  two  numbers  sets  "s"  ano  "e"  accordingly.  The 
numbers  may  be  octal  or  decimal,  ang  a snace  is  reauired 
between  two  numbers. 


E X amp  1 e s 


♦ c , 


cO  10»  u77c  1 oau 


+ c 1 0 


/ c » 


e)  dl<numbep>]  (<numper>)  fcnt  file 

Delete  characters  "s"  throuar  "e".  "d"  alone  sets 

"s"  to  0 and  "e"  to  127,  effectively  deleting  the  entire 
font,  "d"  with  a sincle  numbpr  deletes  that  character  code, 
"d"  with  two  numoers  deletes  "s"  through  "e"  inclusive. 
I'i umbers  may  be  octal  or  oecimal,  and  a soace  is  reauired 
between  two  numbers. 

Examoles:  a,  05,  d Ol7o,  a 0 057. 


f)  [<numper>l  ! ( h ) ! (-] p (<number>)  t<numner>] 

tdit  lines  "s"  throunn  "e",  oromptinq  for  each  line, 
"s"  and  "e"  are  set  as  in  "c"(chant3e).  .ynile  editing  a line, 
"cnt  1 -d"  comoletes  t^e  line  as  it  was.  T^'is  command  uses 
the  NPS  line-editor  functions  in  the  terminal  hanaler. 


e , 


-e , 


E X amo I es 


0 7 7 e 0 1 h , + e 3 5 


017e  12 


Turn  on  (o^f)  a f ' aq  controlling  the  oisplay  of 


character  dimensions.  Once  turned  on,  character  dirionsions 
are  displayed  every  time  a character  definition  is  fetched. 
Displaying  is  turneo  off  by  a subseouent  ” f . "f”  may  be 
prepended  to  any  command. 

Examoles;  f»  fl,  +fe  0 10,  0176ft  0 10. 


h)  i t<number>]  (<rumDer>l  filename 


Include  characters  "s"  tnpouqh  "e"  from  the  font 
file  "filename".  "s"  and  "e"  are  set  as  in  the  "d"(delete) 


command . If  the 

font  file 

oeing  edited  or 

created 

and 

"filename"  are 

not  comoat i b 1 

e,  then  the  include 

will  not 

oc- 

Cur.  Subseouent 

uses  of  "i" 

do  not  reouire  "fi 

1 ename " ; 

un- 

less,  of  course,  the  user  wishes  to  include  from  another 

font  file. 

Examoles:  i 0 057  dOJ8,  i hCS20,  i. 


i)  (<numoer>]|[+)Il~ll  (<number>)  [<number>l 


List  lines  "s" 
" s " and  " e " are  set  as 


throuqh  "e"  of  the  current  character, 
in  "c " ( C h anae ) . 


Examples:  hi  0 10, 


07nt,  1 


j ) n 


Pi SP 1 a V 
the  status  of 
cellenf  nneans  o* 
tne  results  of 


the  torit  oesctiption  a^o  a table  reflecting 
(ne  ecit  session,  Thg  table  oroviaes  an  e*“ 
nanacing  egit  wors.  figure  11  illustrates 
con  T and  rluring  an  edit  SeS“ 


S i on  . 


5?>  n 

SAlLld  (Stanford  Artificial 


1 

eOd  X X 

010  XXX 
020  XXX 
030  XXX 
040  X X X 

050  X X X 

060  n X X 

070  XXX 
100  X X X 

110  X X X 

120  X X X 

130  X X X 

140  X X X 

150  X X X 

160  X X 0 

170  D 0 0 


X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
X X X X 
0 D D D 
0 X X X 


Intalliganca  Laboratory) 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

0 

X 


' ' undaflned 
5?> 


'X'  unaodifiad  'I'  ineludad  '0'  dalatad  'n'  aodlflad 


i g u r e 11 


E * anu 1 e : 


L 


« 1 


r 


The  "p"(baraneterj 
nodule  of  tjf  «hicn  alln«3 


co^nang  executes  an  interactive 
fhp  modification  o<  c‘'aracter  and 


font  dinnensions  and  description.  A set  of  instructions  will 
be  aispldyecf  ano  may  pe  recalled  if  reauired.  This  module  is 
Quite  versatile.  The  user  must  keeo  in  mind  that  character 
and  font  dimensions  are  being  cranaeo/  not  character  pic- 
tures. 


E X amo I e : P 


I ) d 


Quit  warns  once  if  changes  have  been  made  and  not 
written  out;  otherwise^  it  exits#  closing  any  open  files. 

Examole:  a. 

t)  [<number>]J(+)!(-ls  llrjuld  [<numt-)er>)  l<number>) 

Shift  lines  "s"  through  "o"  one  pixel  left(l)» 

riahtCrl,  uo(u)/  or  down(g).  The  resultina  lines  are  au- 
tomatically displayed.  "s"  and  "e"  are  set  as  in 

"c" (chanoe)  . 

Examples!  +slO  10#  0<Ji!lsu  10,  sr,  -sd. 


n)  w filename 


Write  out  the  font  file  being  edited  or  created  to 
"filenaiTie".  ">»"  must  have  a "filename"  and  will  not  allow 
the  user  to  write  to  the  font  file  being  edited.  "w" 
displays  the  byte  size*  in  aecimal»  of  "filename"  and  then 
performs  a "g"(guit).  writina  out  a font  file  takes  longer 
than  writing  out  a normal  file. 

Examples:  w temp,  w / . f on t s . 0 1 / f on t /HC  1 2 0 . 


o)  < rubout > 1 <b rea< > 

Either  key  causes  an  interrupt  which  is  trapped, 
whatever  commam  «as  executing  is  stoPoed»  the  previous  en- 
vironment restored  (the  command  loop  is  reentered);  and  the 
user  mav  continue.  'J either  xey  undoes  anvtning;  they  merely 
aive  a mechanism  for  killing  commangs  without  killing  the 
program . 

E.  Li'M  Ta  T ION? 

There  are  two  types  of  limitations  to  Edf.  First;  there 
are  "nice  to  nave"  tvoe  commands  such  as  folding  character 
pictures;  italicizing  fonts;  and  producing  bold  fonts  which 
were  not  included  cue  to  time  constraints  but  which  could 
easily  oe  added  in  the  future.  Second;  Edf  has  not  had  a 
thorough  testing.  There  are  many  checks  throughout  the  pro- 
gram which  were  included  to  detect  bad  font  files  and  to 


b 


I 


DPevent  the  croqratr  from  abnormal  termination 


Fdf  is  good 


at  screening  commancs  and  at  flaooing  bad  ones.  Althouoh 
possible  to  string  some  commands  together  on  one  command 
line/  some  combinations  are  bound  to  produce  strange 
results.  The  user  should  combine  commands  only  as  described 
in  the  preceding  section.  Despite  its  limitations/  Edf  is  an 
extremely  useful  tool. 


6 1 


IV 


typesetting  tools 


r 


Tne  uspr's  'manual  [‘^eT.  71  Drovides  detailed  instruc- 
tions on  tt>e  use  oT  the  two  tyoesetting  tools  described  in 
this  charter. 

A.  PPFUNI 

1 . Oes 1 on 


Prtont  was  designed  a final  test  of  a digitized 
font.  If  a font,  when  disolaved  ry  Prfont.  accears  ragged. 
then>  it  is  not  yet  satisfactory  for  use  in  tyoesettina. 
Prfo'nt  disc 'ays  an  entire  font,  settino  characters  on  hor- 


izontal lines  in  their  collatina  seguence.  To  do  this.  i 

Prfont  reads  in  the  header  table  and  font  dimensions  from 
the  font  file,  checking  for  invalid  font  dimensions.  First. 
usin<i  the  Versatec  sinulfaneous  orinter/olotter  mode,  the 
font  name  is  centered  above  where  the  font  will  be 
displayed.  Prfont  then  runs  through  the  header  table  ac- 
duiring  enough  characters  for  a rgw.  Once  a row  has  been 
filled.  Prfont  fills  dot  buffers  with  the  digitized  cic- 
tures  of  the  collected  characters.  Plot  buffers.  once 

filled.  are  sent  to  the  Versatec  one  at  a time.  Once  a 
numcer  of  clot  buffers  eoual  to  the  heiaht  of  the  font  have 
oeen  sent.  the  line  of  character  oictures  is  comdete.  and 
one  line  of  characters  has  been  set.  Prfont  then  dots  S 


blank  olot  lines  to  provide  character  line  soacing.  Before 
continuing,  the  orogram  frees  the  allocated  memory  (from 

J 

•'lloc(II)}  that  it  accuired  to  hold  the  character  defini- 
tions amaitino  plottina.  Prfont  free5  Ihis  memory  in  the 

reverse  order  in  which  it  was  requested.  This  reverse  order 
of  freeing  is  important.  Durina  the  testing  gf  Prfont,  cer- 
tain sequences  of  memory  allocations,  if  not  freed  in  re- 
verse order,  caused  an  abnormal  program  termination  when  the 
program  «as  later  reouestina  additional  memory  (in  the  sys- 
tem routine  A 1 1 oc  ( 1 1 ) ) . Tnis  problem  pecame  much  more  com- 
plex in  Sianmkr  where  certain  characters  were  used  several 
times  on  a line.  Prfont  then  gets  another  row  of  charac- 
ters, continuing  the  process  until  all  characters  in  the 
font  have  been  displayed.  In  setting  character  pictures, 
Prfont  sets  all  the  bytes  used  to  store  the  bit  picture. 

For  example,  i^  a character  has  a raster  width  of  17,  then  3 

bytes(2y  bits)  are  set  in  the  olot  buffer,  as  opposed  to  the 
settino  of  the  first  17  bits  alone.  Setting  pictures  by 
bytes  as  opposed  to  bits  greatly  speeds  the  process  of  fil- 
ling plot  buffers  while  producing  the  same  character  pic- 
tures. 

2 . Feat  ures 

Prfont  takes  multiple  arguments,  either  font  names 
or  full  pathnames.  Prfont  ensures  a one  and  one  half  inch 
margin  at  the  too  of  the  page  and  one  inch  margins  else- 
where. Furthermore,  Prfont  looks  ahead  to  ensure  that  the 
next  font  to  be  disglayeo  will  fit  on  the  current  gage, 

b3 


causina  a oaae  eject  it  sufticient  pooti  does  not  exist, 
Prfont  also  takes  an  notional  numeric  argument.  This  argu- 
ment mijst  oe  the  the  first  argument  and  must  be  oreceoed  by 
a The  argument/  any  number  from  1 to  resets  the 
width  of  the  disolay  field  in  olot  bytes.  Often,  in  an  ex- 
tremely large  font  or  on  davs  when  UNIX  is  servicing  many 
users,  Allocfin  will  be  unable  to  orovide  the  memory  re- 
guired  to  nold  the  character  definitions  awaiting  olotting. 
If  this  situation  occurs,  the  orogram  exits,  oisolaying  a 
message  to  rerun  with  a narrower  disolay  field.  Such  a field 
would  hold  fewer  characters  and,  therefore,  recuire  less 
memory.  The  default  caaewidth,  or  disolay  area,  is  2lb  olot 
bytes. 


d.  SIGNMKP 


1 • Design 


As  the  thesis  oojectives  reguiring  the  modifications 
of  Iroff  and  vts  were  not  attained,  tris  aut'^or  desired  some 
means,  however  limited,  of  settling  text  with  the  adaoted 
fonts.  .'/ith  that  objective  in  mind,  Siqnmkr  was  designed. 
Signmitr  reads  lines  from  a text  file  intersoersed  with  a 
limitei  set  of  text  orocessing  com-ands  and  sets  the  text, 
according  to  the  commands,  in  the  selected  fonts.  Briefly, 
the  design  includes  Doth  text  orocessing  and  tyoesetting 
functions.  The  program  is  a novelty;  it  is  -ore  su’ted  to 
maxing  Signs  than  for  oroduCinO  documents. 


sert  clanK  (04 ii)  character  in  its  olace.  If  the  font 
''as  no  olank  cnaracte'"»  Sign  nun  exits.  .Whenever  Sigomkr 
cannot  hancila  re'Jues'-s»  it  oisr.  lavs  aiacncstics  arc  the  line 
being  orocessei  nefone  exiting. 


Examplei  this  source 

caaaaanaaaaao  caaaaanaaaaa:> 

ti  •>  tt  aCaaaaa-"v  B ■v  NIL  ~ 
XaaflaaVaaaaal  XaaaaaVaaaaal 

-*  caaaaanoraaaao 
Xa-»^  A - NIL 
XaaaaaVaaaaal 


proauces  this. 


i g I.J  r p 1 ^ 


. ' e a h g r p s 


r i -Ou  r e S 

\ P arc 

1 

3 '1  r e» 

» X a fT'  C 

1 P s 

0 ^ 

S 1 O n n 

«r's  caoat.il- 

1 1 

1 e s » am,  in 

f -a  c t , 

f 

1 G ij  r e 

1 i IS 

an 

e X c 

pllent  oescrirticn 

0 f 

oionn-^r  in  it 

self. 

s 

0 ^ ® 0 ^ 

t S » 

■f  1 G U 

r P 3 

1 n 

f'ls  thesis 

•an 

ct  ’’OS''  of  t 

n f 1 

TJ 

r ct  r i 

tips 

were 

s e 

t t V 

Sign-nkr.  Tne 

various  ro~''"anos  to  Si  a n-'«r  are  su'r'rari^eo  t?elcv».  ''t.  5C"  is 
tip  AoCIL  pscaoe  c-^aractpr  (OS'^). 


aj  t'^C  s '■np  li''e  of  text  "> 


1~<>  "o.”'’pr”  con-ang  cen.rers  one  an  a only  onp  li^e 

gf  an]  ••'i'  li^p  is  ^oo  line  iTT'pgiai’plv  foiiortinc  t~e 


o n 


T^-p  uspr  rust  u3®  tni=5  co^rnanT  for  eacr  line  to  De 
centerea.  If  a line  is  too  looq  to  fcp  ceotereri/  then 
Si'-jnokr  kvill  infor'n  the  user  of  ttiis  ■‘act  anO  ionore  tre 
line. 

0)  F3Cf<fontna''e> 

Ihis  co'^’ranr!  allO'«.S  toe  uSer  to  Ct’anoe  t^e  font  D®" 
ip'.'5  useo  for  tyresettinr;;  it  '•ust  re  use's  only  at  the  heao 
of  a line  or  on  a line  Ov  it'^elf.  Full  oatrnanes  are  ac- 
cent aole.  olan<  -ust  ■'ot  re  left  het..een  the  connano  ana 

tre  ne<v  font  03ne. 

c)  ESCoaVn 


T i-  • 

is  is  the  "caa^Orea^"  C0'"'hana  anO 

is  s 1 i 1 a r 

t 0 

f n o 

'*  -s  r *' 

C n~r~  .-^no  uses  in  It  eendS 

a fcrn-feeo  si 

n - 

r a 1 

to  the 

Versat°C.  The  ro-nan-1  shouM  0® 

uses  on  a 1 i 

ne 

r V i 

1 f se  1 f . 
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d)  t.  SCpcNn 


1 


for 

the 

i t 


The  "oeain  Darigrann" 

D ^ r <3Q  r anh  i nn  . Tro  size 

size  of  the  cij Trent  font. 
Should  re  on  a line  bv  itse 


co'^nano  inoents  the  text  line 
of  the  inoent  is  oeter^ined  by 
Like  the  "oaoeDreax"  conmano, 
1 f . 


e)  t!SCs<nijrrrer> 


T n e ' 

’srace"  co^nanj  ingarts  blank  1 

i ne s 

W 1 

thin 

t;  h o 

text. 

T h o 

heidht  ct  t-e  rlanx  line  is 

eou  a 1 

t 0 

the 

font 

height  . 

A ol 

lank  nyst  not  no  left  netween 

the 

c 

n a r d 

and 

the  r ij  n D 

^ r . 

Top  nunoer  (-0  octal  (leaai 

no  0 ) 

0 ^ 

dec  i 

na  1 . 

tSLc<''-j-rer> 

This  con’ian;)  soor,*,os  a Character  rv  Its  Character 
code  ~itnin  the  current  font.  The  CCnnano  nav  0®  used  at 
any  ooirt  within  a line,  Ouf  -ust  not  contain  blanks. 
This  ro~T, am  is  useful  in  accessino  a character  fron  a SAIL 
font  whose  character  cme  corresconds  to  a control  character 
in  ASCII.  "I'jTbers  Tav  be  octal  (leaeiino  0)  or  oecinal. 


Us<»rs  nith  orev^ous  *?»oeripnce  text  oroc^^ssinq 


orropaTS  shoulj  t'jve  pc  tpouole  in  aoeotina  to  Sion^xr. 
p*0^evOP»  caution  snouln  ne  e«PPCis<?U  when  usinq  the  "ESCod" 
(caragracn)  anq  "ESLf"  (cname  fonts)  conoanos  at  the  same 
roint  in  the  incijf  file.  Tne  t/<n  seouences  of  incut  lines 


(a)  ESCf  HOhh 
E SCco\n 
ESCf  HT-?53\r 
< incut  ^oxt  > 


(h)  ESCf 

ESCf  HTP'^0\n 
tSCnoXn 

< incut  text  > 


are  net  ioentical.  Sequence  (a)  will  set  uo  tne  indentation 
foP  the  next  oapaopacp  assunino  a font  heiqnt  of  8 point/ 
out  hhe  text  will  actually  0“  ^et  in  S'1  coint  tyre/  so  the 
inoenta^ion  will  opt  pe  oovious.  Sequence  (t")  chances  tne 
font  neioh''  fo  S'l  ro'p^  and  tn^n  indents  taseo  on  that 
height. 
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V.  CGMCLUSIOI^S 


A.  AT  TAIrNi'-'E''iT  OF  THESIS  OBJECTIVES 

In  retrospect,  t^e  thesis  effort  mav  be  oivioeo  into 
three  riain  areas: 

1.  Data  Base  of  CigitizeH  Fonts 

First,  a data  base  of  dinitized  fonts  for  a !h-oit 
environment  was  created.  This  acco'^clishment  enccmrasseo 
the  first  two  thesis  oojectives  listed  in  the  I n t r oouc t i on , 
the  design  of  a UNIX  compatible  font  file  format  ana  the 
conversion  of  the  thirty-four  SAIL  fonts  to  this  format. 
This  effort  negan  in  early  February,  1977  and  was  completed 
in  late  '•‘arch.  Considerable  time  was  scent  in  oesioning  ana 
programrnim  Listfont.  Listfont  provided  for  the  processing 
of  the  raw  data,  the  Stanfon-f  font  files  on  tape.  After 
aesidning  and  Programing  Listfont,  this  author  was  thorough- 
ly familiar  with  the  concents  involvea  in  storing  digitized 
character  definitions  and  was  aware  of  several  errors  in  the 
e*istina  font  files.  This  awareness  was  invaluable  in 
desionina  a compact  font  file  format  for  use  under  UNIX  ang 
in  designing  Transfile,  the  program  to  correct  errors  while 
transfor-ing  SAIL  fonts  to  the  NFS  format.  The  resulting 
files  represent  a variety  of  different  software  type  for  use 
in  computer  typesetting. 
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Software  Tool  Develooment 


The  second  area  oT  the  thesis  effort  consisted  of 
conoleting  thesis  objectives  three  through  six!  the  reoesign 
of  Egf  to  edit  and  create  fixed  and  variable  width  fonts» 
the  design  of  Prfort  to  display  fonts#  and  the  design  of 
Signmkr  to  set  text  in  the  digitized  fonts.  None  of  the 
many  proolen^s  encountered  in  program  design  reguired  the 
noditication  of  tne  font  file  format  initially  designed. 
The  file  desion  .<as  such  t^at  character  pictures  were  easily 
accessiole#  and  oroqrams  could  often  use  routines  from  Dre~ 
viously  designeo  proorams  with  only  minor  tailoring. 

3.  Oocumentation 

The  third  and  final  phase  of  the  thesis  effort  was 
the  documentation.  First#  ^ user's  manual  was  written  (co“ 
authored)  (Wefs.  5 anc  71.  Tho  manual  was  desioneo  for  a 
student  with  ""oderate  experience  with  UNIX#  no  experience  in 
comp  ij  ter  tynekettino,  and  a desire  to  Pursue  further 
development  of  computer  typesetting  under  UtJlx.  Second#  the 
thesis  TOCi-jmenrs  the  total  eftort#  fccusino  mainly  on  prc” 
gram  desion.  Durinc  this  final  phase#  the  author  came  to 
several  conclusions  concerning  computer  typesetting  under 
UNIX  and  computer  tyreset^inn  in  general.  In  the  former 
case#  there  is  arear  mtential  for  e x oe  r i men  t a t i on  in  the 
desidn  of  a software  oriented  computer  tynesettinn  environ- 
ment# a software  environment  which  could  conceiyaply  be 
modifinn  to  function  on  different  computer  systems  using 
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different  orintina  devices.  In  the  latter  case»  there  is 
qreat  potential  in  o r i n t i ng- re  1 a t ed  inaustries  for  increased 
profits  and  lower  Tachine  "'aintenance  costs. 

B.  CU'^PUTPK  typesetting  UjDF.R  UNIX 


Althoudh  all  of  the  proqra'ns  could  be  improved/  as  is 
discussed  later/  the  system  software  is  efficient/  and  the 
algoritrms  could  be  r eo r o d r amned  to  adapt  the  system  to 
another  computer  or,  under  U^JIX/  to  drive  a higher  speed 
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FONT 

REAL 

SYSTEM 

INPUT/OUTPUT 

BOJ0 

18.0 

0.5 

2.8 

aoRi  0 

28.0 

0.5 

3.0 

SAILIO 

27.0 

0.8 

2.7 

6DW15 

27.0 

1.5 

3.6 

S1GN22 

35.0 

3.2 

3.8 

RDR25 

3a. 0 

2.6 

a .6 

SI  GNU  1 

aa . 0 

10.6 

5.6 

Times  are 

i n secon 

ds  . 

Table  3 


By  exa'T'ininq  Table  It  two  conclusions  are  obvious.  First» 
syste'Tt  an-i  inout/outcut  times  are  deoendent  on  font  height. 
Secondly/  given  the  above  times  for  the  setting  of  one  sen- 
tence/ the  oroduction  of  larae  documents  would  be  unreason- 
able. Slow  tyoesettino  times  are  caused  ov  the  low  olot 
soeed  of  tre  versatec/  and  the  constant  demands  on  the 
PDP-ll’s  unibus  desian  /.rich  services  all  users  and  ceri- 
Dheral  devices.  Figure  2\  of  Acoendi*  A reauired  32.5 
seconds  of  system  time  and  2b ,b  seconds  of  input/outcut 
time.  In  Summary/  L'llx  has  orovided  an  excellent  environ- 
ment for  the  desian  of  a system  of  programs  to  effect  com- 
nuter  tyoesettina?  hc-ever/  U^iix  is  oy  no  means  prepared  to 
provide  tne  environment  needed  to  continuously  operate  Such 
a system. 
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C.  FUTURE  'MODIFICATIONS 

The  results  of  this  thesis  and  the  efforts  documented  in 
reference  b are  that  UNIX  now  oosseses  a large  data  base  of 
fixed  and  variable  wicth  fonts  and  three  significant  tools 
for  further  develoorrent  of  the  system,  Troff  and  Vts  have 
not  been  modified^  anc»  until  they  are»  computer  typesetting 
under  UNIX  lacks  its  potential  capability.  Considering  that 
the  ore-thesis  system  configuration  still  exists  for  the 
original  four  fonts»  the  expanded  font  library  and  improved 
tools  represent  a sianificant  enhancement.  This  author 
recommends  trat  futher  development  to  enricn  the  system  be 
conducted  in  the  follc-ing  areas; 

1 . T r o f 

^'odity  Trotf  to  orccess  text  files  to  be  set  in  any 
of  the  fonts  in  trie  present  library.  The  major  effort  in 
this  area  is  the  design  of  a scheme  for  Troff  to  compute 
character  widths  from  a font  name  and  height.  Troff  should 
produce  a file  to  be  processed  by  the  virtual  typesetter, 
vts. 

2 . Vts 


'Modify  Vts 

to  set 

fixed  and 

y a r i ao 1 e 

width 

fonts 
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font  f i 1 
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Software  Tools 


iltnouqh  useful  in  their  nresent  forr'S*  additional 
ODtions  could  be  addec  to  Edf  and  SiqnmKp.  Firsts  the  capa- 
bilities of  producinn  italicized  ana  bold  fonts  in  tdf  from 
a roman  font  would  be  a sionificant  improvement.  Seconds 
althouah  its  place  in  the  computer  typesetting  system  will 
always  remain  that  of  a novelty»  some  additional  text  for- 
matting options  in  Signmicr  wouM  matce  it  a more  useful  tool. 
Both  ®rfont  ana  Siqnmkr  can  be  made  to  execute  more  rapidly 
by  filling  ana  semainc  groups  of  plot  buffers  to  tre  lersa- 
tec  as  cPDOseo  to  the  present  aesign  of  transmitting  plot 
buffers  one  at  a time^  anrl,  in  all  t^ree  programs,  the 
number  of  d i s x reads  for  each  cnaracter  definition  access 
could  he  reduced  from  five  to  two.  Presently,  the  complete 
character  definition  is  accessed  ov  seexinq  to  and  reading 
the  raster  width;  three  Subsequent  "reads"  obtain  the  left 
kern,  rft»  and  drc»  r e soec t i v p 1 y . After  some  computations, 
the  entire  bit  Picture  can  then  be  read  into  program  memory 
(the  fifth  "read").  Instead,  by  seexing  to  the  definition 
and  reading  a))  four  dimensions  (6  bytes)  into  a buffer,  the 
bit  picture  can  he  read  into  program  memory,  after  some  com- 
putations, in  a seconc  "read".  Thus?  the  number  of  "reads" 
per  character  access  is  cut  from  5 to  2 . 

4.  kerning 

The  concept  of  kerning  shoulo  not  be  implemented  un- 
til Troff  and  Vts  have  be«n  fully  integrated  into  the  fixed 
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and  variable  width  font  environment,  i/'ihen  imolenented*  con- 
sideration should  be  qiven  to  either  modityinq  Eof  or  creat- 
i na  a separate  program  to  provide  the  ability  to  display 
pairs  ot  characters  with  the  kerninq  effect. 

S.  Plot  Capability 

As  a final  enhancementf  both  Troff  ana  Vts  should  be 
modified  to  process  textual  and  graphical  information  from 
the  same  file/  allowing  for  limited  graphical  displays  in  a 
orimarilv  te*tual  document.  This  modificairion  demands  effi~ 
C’ent  use  of  memory  as  the  Versatec  cannot  '"everse  paper 
movement/  and  Vts  must  oe  able  to  store  information  in 
"looking  ahea<t"  to  complete  graphical  oisplavs.  The  need 
for  computer  tyoesettinq  systems  to  hangle  both  graphical 
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e X amp  1 e / as  ea  r 1 v 

as  1903/ 

the  U , S . 

Government  Printing  Office  issued  a reauest  for  a typeset- 
ting system  based  on  p no t oc ompos i t i on  , One  of  the  require- 
ments was  an  ability  to  handle  randomly  occurring  graphic 
formats  in  text  documents  (hef.  t^JJ. 
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APPE'JCIX  4 FONT  ntSCPIPTIGNS 


The  sail  ^onts  are  displave':)  on  the  tollowinq  oaaes. 
The  aisolays  were  cro<1ucer)  bv  Prfont  ara  are  in  the  same 
orner  as  the  listina  in  Table  1 of  Chaoter  1.  The  final 
cage  of  the  apoenoix  was  set  by  Sianmkr  and  is  included  to 
illustrate  tne  contrast  amona  the  fonts.  A comoarision  of 
the  SAIL  fonts  displayed  on  the  following  oaoes  and  those 
displays  in  reference  12  reveal  added  characters  in  the  NPS 
versions.  The  additions  were  made  at  Stanford  after  the 
publication  of  reference  12.  The  additional  characters  have 
not  oeen  removed. 
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WHAT  IS  WRITTEN 


APPtWDIX  B PPOGPAM  listings 


This  aoDenBix  cor^tains  the  DPogram  listinas>  the  source 
codeSf  for  the  proorar"S  Oe'?cribed  in  the  boay  of  the  thesis. 
Each  listinrj  is  oreceoeo  by  a one  paqe  aescription  to  avoid 
havina  to  refer  to  various  chapters  for  oeneral  inforTa- 
tion.  One  of  tne  anvantaqes  of  the  nroarar'  lanouaae  C [Pef. 
10)  is  that/  while  not  se 1 f -noc u^en t i no / it  has  constructs 
wnich  are  very  oescriptive;  however,  where  necessary,  con- 
.nents  have  oeen  addeo.  Subroutines  within  proorams  are  qen- 
erally  listed  in  a standard  Tanner.  "Main"  appears  first  and 
IS  followed  by  subroutines  in  order  of  decreasing  proT- 
1 nenc e . 


LISTPUKT 


12  May  I'??? 


LISTFOUT 


DESC« IPT lOM 


! 


Hst^ont  (-11  <filename> 


I 

I Listfont  process  a font  file  of  the  Stanfora  format.  It 

I examines  t^e  heaoer  table»  tre  font  dimensions/  and  the 

4SCII  descrintion.  In  doinq  so»  Listfont  ignores  wasted 
hiqh  order  bits  and  interprets  18-bit  PDP-10  halfwords 
as  lo-bit  PDP-11  full  words.  The  font  dimensions  and 
descriotion  are  displayed  on  tre  C^T  screen.  Listfont 
then  processes  each  character  definition,  oefectina  and 
flaqaina  discreoancies  in  character  aimensicns  or  char- 
acter picture  storage.  An  optional  "-1"  aroument 
displays  Character  dimensions  and  pictures  to  the  CRT 
screen. 


FILLS 


<tilename>  must  be  a Stanford  formatted  file  «hich  has 
been  read  into  a L''Jl<  file. 


LISTFONT  LISTFONT  LISTFONT 


^define  OK  i f ( o r i n t f 1 aq ) 

//controls  ootional  char  d i en  s i on /o  i c t u r e listing 

float  byte? 

int  charwll^B); 

int  caddr[128l; 

int  ♦ y » * 2 ; 

char  t e X t bu f [ ^80 1 , hbuf(b); 

int  b i t p t r » b » f o » b I e f t ; 

int  orintflaq  0; 

i nt  unused  0 ; 

int  r a f 0 ; 

int  1 k f 0 ; 

char  * d ; 

main(argCfarQv) 

int  arqCf  char  **arav;  { 

int  1 » j ; 

i^  (--arqc  ==  0)  { 

orintf  ("P8=J4''^bTtWS  ?"); 
e X i t ( ) ; 

> 

if  (arqv[l)l01  ==  {//  turn  on  orintflag 

orinrflaq  - W 
fp  = U^E^J(arov[c]>0); 

> 

else  fp  = OPF''l(3rdv(lJ,0); 

Dtrolk(  );  //cet  nor  table 
cKarolxC  );  //det  font  di^-ensions 
fontolkC  );  //qet  font  ascii  description 
UK  printf("5.  Character  Definitions:\n"); 

OK  Polnxln(2); 
i = 1^6  - unused; 

//process  the  *j'  characters  in  the  font 
fqr(i=0;  i<i;  i+h) 
cnarie^sC  ) ! 

on  1 n < 1 n ( 1 ) ; 

//repo'*!’  kernino  or  dimension  errors 

if(rafJprintf(''Paster  widths  1=  crar  widths...%d\n",raf); 
els“  printf(" Paster  width  - char  widths  all  eoualNn"); 
it  (Ikf)  orintfC" Kerning  occurs  %d  times\n",lKf); 

//rat  should  equal  Ikf 

else  printf("''Jo  nonzero  left  xernsNn"); 

//if  this  doesn't  agree  with  a 'Is  -1  filename' 

//then  there  are  extraneous  oytes  present 
printf("  Total  bytes  orocessed=  ’4f\n",r5ytc  + l.); 

CLOSE ( f P ) ; 

> 

Ptrp1<(  ) (//an  thru  hdr  taole,  count  chars  in  font 

int  1 ; 
oy  t c = - 1 . ; 
y = charw;  z = cadcr; 
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{ 


for(i=o;  !♦•♦) 

* V + + = ge  t *1  w ( ) ; 

*2++  = aethw(  ); 

> 

for(i=0;i<l(?6;i++)  if  (charwii]  ==  0)  unuse0+  + ; 


} 


int  get^iwC  } {//5  PDP~10  bvtes  to  d PDP-11  bytes 

i n t c / t / 

KEAO(fp»iCf  1 ) i 
READ(fD»’ic»l); 

MEAD ( fo, it  , 1 ) ; 
by  t c = + 3 . ; 

return!  (c  <<  b)  I t )» 


b y t e s ( X ) 

int  *;  <//trasb  x bytes  ana  bu-o  uo  counter 
int  i > t ; 

for(i=l;  i<=x;  i++)  { 

PEAD(fo,it,l); 

Dv  t c = + 1 . ; 

> 


OD  1 

n<  1 

n ! X ) 

i n t 

X ; {//print 

X c 1 

i n t 

i ; 

for 

11 

A 

II 

K 

i 1 1 ) 

putcbar!  '\n 

' ) ; 

} 

cb  1 

nk  ! 

X ) 

i n t 

x;  {//crint 

X b 1 

1 n t 

i ; 

f 0 r 

( i z 1 ; , < z X ; 

i + + ) 

Dutcbar!'  ' 

) ; 

1 n e s 


Charol<(  ) <//print  font  oiirensions 


printf("l.  Characteristics:\n"); 
pb  1 n k 1 n ( £■  ) ; 

D y t e s ( P ) ; 

printfC"  Overall  neintit  of  font  fpixels)=  %0\n", 

oe  t b w ( ) ) ; 
py  t e s ( 5 ) ; 

printf("  I'lirJth  of  widest  cbaracter= 

qe  t n « ( ) ) ; 

b y t n s ( 3 ) ; 
r r i n t f ( " 

qp  t h w ( ) ) ; 

bvtes!  Ib8); 
n n i n < 1 n ! a ) ; 


Loaical  heiqht  above  naseline= 


%a\n"  , 


oo 


fontt^lkC  > {//orint  font  ascii  dpscriotion 

i n t i . n ; 
c a r c ; 

n = dle^t  = b - 0; 
b i t r>  t r = ii 

while  ((c  = nextcharC  ))  !=  0) 

te*tbuf(n  + + ] = c : 

printf("2.  Font  Description:\n"); 

Pb  1 n K 1 n ( 5 ) ; 

for(i=0;  i<n;  i++)  putchar(texthu^[il); 
p p 1 n < 1 n ( 1 ) ; 
bytes(57(5  - b); 


char  nextcrar(  ) {//get  next  char  in  ascii  description 
char  t eno ; 

i n t 1 » j /■ 

temp  = A 0 ; 

tor(i=0;  i < 7;  ihh)  ( 

if  (bitptr  ==  P (4Si  bleft  ==  0)  < 

a - hbu  f ; 

WtAO(fc»hcuf»P); 
b V t C = ♦•  0 , ! 

bleft  = o ; 
b = +■  h ; 

> 

Switch  (bitptr)  { 


case 

^ : 

temp 

r 

temp 

( *d 

OaO  ) 

> > 

5; 

b r ea  k 

case 

5: 

t emp 

= 

temp 

f *d 

A 

0 20  ) 

> > 

a; 

break 

case 

a : 

t emp 

= 

t emp 

( *d 

A 

0 10) 

> > 

3; 

b reak 

case 

S: 

temp 

r 

t emp 

( * d 

& 

OOU  ) 

> > 

2; 

break 

case 

b : 

t emp 

z 

t emp 

( *d 

002) 

> > 

1 ; 

break 

case 

7 : 

temp 

z 

f e m P 

( *d 

i 

0 0 1); 

b r e a K 

f 

default:  printf("bifctr=  ::d\n",bitctr); 
e X i t ( ) » 

if  ( I < b ) t emn  = < < 1 ; 

if  (++bitPtr  > 7 !!  (bleft  ==  1 (bitotr-l)  == 
bitctr  = I?; 

b 1 p 1 1 = “ 1 J 

d + ♦ ; 

> 

return(  temp  ); 


chardpfsC  1 (//process  one  character  definition 

char  i,oc>to»l»t/rft; 
int  ae  fc  t <trc  > tm  , r<  ; 


b)  1 < 


HEADCfp,&tr;,  1 ); 
to  = tp  <<  3; 

KE&D  ( f p , 8.0C  f n ; 

rw  = tc  1 ((oc  0 70  ) >>  3); 

«EAD( fp,%t , 1 ) ; 

bvtc  =■*■  3.; 

oc  = (oc  <<  b)  1 t; 

U'<  orintfC"Octal  C0'1e=  "); 

if  ( oc<8  ) 0*^  orintff"00"); 
else  if  ( oc<o‘<  ) CK  pu  t c h a r ( ' 0 ' ) / 

OK  Drintf("%o'*»oc); 

OK  cP 1 n k ( 1 fa ) ; 
defc  = oethM(  ) -2 ! 

if  (oefc  <=  0)  (Z/stoo  i^ere/  there  is  no  Picture 
Oh  p r i n t f ( " N 0 P R I '■'/  T A y L E \ n " } ; 

OK  pblnktn(2); 
bytes(fa)  t 
return; 

} 

OK  crintff"  Character  '/^idth:  ’Zd\n",  charw(oc])» 

r<^  = (rw  ==  0)  ? charw(oc)  : rwJ 

//rw  1=  Cw  ->  Defter  pp  kerninq 
if  (rw  !=  charwfocJ)  raf+t; 

UK  orintf('' Paster  width=  %d"»rw); 

OK  pp 1 n < ( 1 5 ) ; 

KEAO(tp,ii,n; 

) = (1  <<  3) ; 

PEADttpfirftfl); 

) = ) ; ((rft  & 070)  >>  3); 

PEA0(fp,4t,lj; 

rft  - ( rft  <<  O ) I tf 
bvtc  = + 3 . ; 

OK  printf("Lpft  kernr  ’/Cd\n",  1); 

rk  = rw  - (charw(oc)  ♦ 1)J 

//all  dineosions  better  jive 
it  (rk  < 0)  OK  print  f ("'^ILEPPOP  - "); 

OK  orintf("Riqht  kern=  %d"»rk); 

if  (r<  !!  1)  l<f++; 

UK  OP  1 n k ( 1 7 ) ; 

UK  orintf("RowS  ♦rc'r  tOD=  %d\n",  rft); 
drc  - qetnw(  ); 

UK  crintf("Data  row  count=  %d''»  drc); 

UK  pb 1 n k ( 1 fa ) ; 

UK  print  f(''defc=  -c\n”,defc); 

//now  walk  tnru  picture  definition 
rastr1n(defc»drc»rw); 

UK  nt  1 n K 1 n ( 2 ) ; 

} 

rastrln(qpfc»qrc»rw) 

int  defc»drc»rw;  (//process  char  picture  definition 
1 n t 1 » j » 1 » n u .It  r w , 71 ; 

Char  t ; 

int  bu  f f PO ) ; 

i n t pbu  t (270)  ; 


line? 


int  *D»*Q»*n; 

UK  Dblnkln(l); 

//how  many  PDP-10  bytes  oer  raster 
1 = ((rw-i)/3b  t n*b; 

//how  many  raster  lines  each  h bytes? 
m = tl  ==  ft)  ? 3o/rw  : 1; 

whi)e(drc)  {//wnile  data  rows  are  left 
D = b u f ; 

forCi=0»  i < 1?  i++)  { 

t<EAD(fn,!it,l); 
b V t c = + 1 . ; 

* n + + = ( ( t .3  0 7 0 ) > > 5 ) ; 

*D  + + = (t  07); 

> 

a = n - rbuf; 

D = b u f ; 

for(i=0;  i <2*1;  i++)  < 

*o+*  = f(o); 

*d*+  = s(o); 

*d+f  = tdfo*t); 

) 

numrw  = (drc  < m)  ? ire  : m,’ 

for(i=l);  i < numrw;  )+■*•)  < 

f O r ( j = 0 ; j < r w ; i * + } 

OK  1 i St  (n  + + ) 

Qk  orintf("\n"); 

> 

ire  - ~ num  rw  ; 
iefc  - “ 1/b; 

> 

//trash  any  extraneous  oyi-es 
Dytes(defc*b); 


1 i s t ( n ) 

int  *n;  <//use  f(n),s(o),td(D)  to  list  cicture 

if  (*n  =r  0)  crintf("  "); 

else  printf("l''); 


int  f ( D ) 

int  *D ; { 

switch  ( *o  ) < 

case  0:  case  1:  case  2:  case  3: 
r e t u r n ( 0 ) ; 

case  : case  5:  case  b:  case  7: 

r e t u n n ( 1 ) ; 

default:  rrintf("‘'elo"); 

> 

> 

int  S ( o ) 

int  * o ; { 


0 3 


switch  (*o) 


case  0;  case  1:  case  4;  case  5 
ret  urn ( 0 ) i 

case  2:  case  3:  case  b:  case  7 
returnC 1 ) ; 

default:  Drintf("helDl"); 

) 

} 

i n t t d f D ) 

i n t * D ; { 

Switch  ( *o ) { 

case  0:  case  2:  case  4:  case  o 
return(O) ! 

ease  1:  case  3:  case  S:  case  7 
ret  u rn  ( 1 ) 

default:  n r i n t f ( " h e 1 n 2 " ) ; 

> 

} 
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transfile 


DESCRIPT  lUN 


t r ans f i 1 e 

<s  f > 

<nf>  <sf> 

<n  f > 

• • • 

<sf  > 

<nf  > 

T rans  file  taxes 

pairs 

o f argument  s . 

It 

t ransf orms 

the 

first  a rgument 

o f 

a pair#  a 

Stan 

ford 

font 

file# 

to  a 

font  file  of  the  NPS  format  with  the  name  of  the  second 
arqument  of  the  pair.  Transfile  exits  if  given  an  odd 
number  of  arguments  or  a nonexistent  file.  Transfile 
detects  and  corrects  dimensionina  errors#  removes  unused 
oytes#  and  displays  the  transformed  file's  size  before 
precedinq  to  the  next  pair  of  arguments  or  exiting. 


FILES 


<sf>  must  oe  a Stanford  formatted  file. 

<nf>  will  be  shortened  to  length  zero  if  it  already  ex- 
ists. 


r ■»  ; 


TMANSFILF 


TRANSFILE 


TRANSFILE 


^define  READwRITE  OObbG  //access  mode  for  transformed  file 

int  fpr»fpw» 

int  notused  O; 

char  ‘hytcJ  //byte  counter 

int  deaa; 

char  i buf (25oJ ; 

char  tbuf 125) ; 

char  obuf 125)  ! 

int  obuf  [25b)  ; 

int  biq»  bike; 

int  flag; 

i nt  charwpt  r (25b)  ; 

char  *o; 

int  bitptr; 

char  t e X t bu f [480 1 ; 

char  *d ; 

int  g»bl ef t ; 

/*  transform  font  files  from  the  Stanford  format  to 
the  NPS  format;  correct  errors  as  detected  */ 

ma i n ( a rgc  » a r gv ) 
i n t a rgc  } 
char  * * a rqv ; { 

int  i»x»j»  filectr; 
putchar ( ' \n  ' ) ; 

printf("\nTransform  files  by  Dair...\n"); 
print  f ("FILES:  ")  ; 

for(i=l;i<arqc;i++)  printf("%S  ”»arqv(i)); 
putchar( '\n' ); 
f i 1 ep  t r = 1 ; 

if  ( ( a rqc ) %2  ! = 1 ) 

orintfClncorrect  number  of  arqumentsNn"); 

/*  by  pairs/  transform  the  1st  a raumen t ( S t an f o r d file) 
to  the  2nd  arqument(NRS  file) 

continue  until  oairs  of  args  are  exhausted  */ 

else  while  ( a rqc  ) { 

big  = 0;  byte  = O;  bike  = 0; 

if  ( c mo r ( ( D = a rqv  [ f i 1 eo t r ) ) / ( d= " s i gn  1 1 a " ) ) ) big  = l; 

//set  'big'  for  the  bio  file 

fpr  = onen ( argv ( f i 1 eot r ♦ + 1 / 0 ) ; 

fpw  = c r ea  t ( a rqv  I f i 1 eo  t r ♦ ♦• ) / PE  ADiMR  I T E ) ; 

for(i=0;  i < 25b;  it+) 

, obu  f ( n = 0 ; 

write(fpw/obuf/512);  //write  blank  hdr  table 
bump(512);  //set  the  byte  counter 
for(i=0;  i <25b;  itt-)  { 
charwPtr(i)  = qetval(  )S 
if  (charwotrli)  ==  0)  notused  =♦  1; 

> 


Pb 


J 


k i 1 1 ( "9  ) ; dead  = putsaveC  )» 
kilH5);  aead  = outsaveC  ); 
kill(3);  dead  = putsave(  )J 
ki  n (lt)8); 

tontPlkC  );  //aet  ascii  description 

k = o; 

f o r ( j =0 ; t e* t bu f l j ] 1=  '\0';j+  + ) 

$ 

f o r ( i = j ; ( t e X t bu f t i 1 =a rq V ( f i 1 ep t r- 1)  [ k ] ) 1=  '\0';i+t) 

k + + ; 

//write  ascii  description 
f o r ( i =0 ; t e X t bu f ( i ] l = '\0';i++)  { 

putcharCtextbuf  (il  )» 
write(fow»<textbuf  li) »1); 
bump ( 1 ) ; 

> 

write{^pw>itextbuf  [il  >1)? 

huTip  ( 1 ) ; 

putchar ( ' \ n ' ) ; 

dead  = 1<?8  - notused/2; 

//process  chars  in  font 
for(i=0;  i < dead;  i+f) 
c h a roe  f ( ) » 

//go  back  to  head  of  file 
seek(fpw»0»0); 

f o r ( i =0 ; i < 256 ; iff) 
obufti]  = charwotrli]; 

//write  out  the  hdr  table 
write(^pw,obuff51P); 

/*  close  fileSf  write  out  byte  count  (this  should 
agree  with  a 'Is  -1'  on  transformed  file)>  dec- 
rement the  argument  counter  by  a pair  (2)  */ 

c 1 ose ( f nr ) ; 
close(fpw); 

if(biq)printf("Si2e  of  %s...Xd  blocks  + Xo  bytes\n"f 
a rgv  [ f i 1 ept r- 1 ] , b 1 kc f by t c ) ; 
else  printf("Size  of  Xs...Xd  bytes\n",argv[fileptr-l) 
byte); 

outchar ( ' \n  ' ) ; cu t c h a r ( ' \ n ' ) ; 

arge  =-  2; 

» 

) 

int  cmcr(pl*o2) 

char  *pl/*o2;  ( //rtn  1 if  lo=p2»  0 otherwise 

f or ( ; ; ) { 

if(*ol  !=  *p2 1 ♦ ) r e t u r n ( 0 ) ; 
if(*ol++  ==  ' \0  ' ) ret  urn ( 1 ) ; 

> 

) 

bump  ( i ) 

int  i;  ( //bump  blk»byte  counts  by  i as  reauired 
if  (big)  ( 

if  (byte+i  >=512)  ( 


if  (bike  < 255)  ( 

b1 kc++; 

bvtc  = (by tc+i )%512; 

> 

else  if  (byte^i  > 65535)  ( 

printfC’file  too  big");  exit(); 

> 

else  byte  =+  i» 

} 

else  byte  =+  i; 

> 

else  oyte  =t  i; 

} 


int  getval(  ) { //3  bytes  to  2 
read( f pr , i buf  » 3)  ; 
obuf[0]  = ((  ibuf(01  & 017) 
( ( ibuf  in  077  ) 
( ibuf  (2J  & 077) 

return (oouf  tO)  ) ; 

) 


<<  12) 
<<  o ) 


int  putsave(  ) ( //3  to  2 and  write  them 

read(fpr/iouf»3); 

obuf(0]  = ((  ibuflO)  017)  <<  12)  I 
( ( ibuf  [ 1 1 8,  077  ) <<  6)  ! 

( ibuf  (21  X 077  ) ; 
write(fpw»obuff2)  ; 
bump ( 2 ) ; 

return(obuf lOJ ) » 


ki 1 1 (x  ) 

int  xi  ( //trash  x bytes 
reaa(fpr,ibuf»x); 

) 


int  worne(  ) { //rtn  the  number  of  6 bvte  words 

//to  the  eharaeter  picture 
read (for, ibuf»3); 

obuflOJ  = ((  ipuf(O)  k 017)  <<  12)  ! 

((  ibuf  m 8.  077  ) <<  6) 

( ibuf  (2)  & 077) ; 
obu f 101  =-  2 ; 
return (obuf (0)  ) ; 


int  retrw()<  //get  rw,  write  rw,  empr  rw  to  cw 

//if  rw  1=  cuf  set  flag  to  check  Ik 

f 1 aa  = 0 ; 

reao(fpr,ibuf»3); 

obuflOl  = ( ( ibuf  (01  i077  ) <<  3)  1 ((ibuf(l)  8,  070)  >>  3); 
obuftlJ  = ((  ibufdl  k07)  <<  6)  1 ( ibuf(21  & 077  ); 

Obuf(01  = (obuf(0I  ==  0)  ? charwpt r (2*obuf  1 1) 1 : obuf(O) 

c r a r wr t r 1 2 *obu f ( 1 1 t 1]  = byte; 


■ b * ; 


A 


if  (oig)  charwDt r (2*obuf  [ 1 ] 1 -!  (bike  <<  S)f 

if  (obuf[01  J=  (charwDt r (?*obuf  ( 1 1 1 & 0577  ))  f1ag  + + ; 

wri te(fDw»obuf»2) » 

bumo (2) ! ' 

return (obuf  (01 ) » ' 


spHtC  ) { //get»  write  out  Ik  ang  rft 
i nt  t ; 

read (fpr,iouff3); 

obuf[0]  = ( ( i buf  (0)  A07  7 ) <<  3)  1'  (( 

obuftl]  = ((  ibuftll  H.  07)  <<  6)  ! 

//correct  any  errors 
if  ( 1 f I ag)  obuf  (01  =0; 

write(fow»oPuf»'J); 
bump ( U ) ; 


( ( ibuf  (11  8,070)  >>  3)  ; 
! ( ibuf  (^)  A 077  ) ; 


char  next(x) 

int  ( //rtn  value  of  next  x bits  to  oak 

char  temp ; 
int  i ; 
temo  0; 

for(i=0;  i < X i i++)  { 

switch  (bitPtr)  ( 


case 

0: 

t emp 

= 

temp 

( *p 

& 

0200  ) 

>> 

7; 

break; 

case 

1 ; 

t emp 

s 

temp 

( *p 

& 

0100) 

>> 

b; 

break ; 

case 

2: 

t emo 

s 

temp 

( *t> 

OaO) 

>> 

5; 

b reak ; 

case 

5: 

t emo 

= 

t emp 

( *o 

i 

020  ) 

>> 

«; 

break  : 

case 

u: 

temp 

= 

t emp 

( *p 

K 

010) 

>> 

3; 

break; 

case 

5; 

t emo 

temp 

( *o 

8, 

OOa) 

>> 

2; 

break ; 

case 

o: 

t emo 

temp 

( *p 

i 

002) 

>> 

1 ; 

break; 

case 

7: 

t emp 

temp 

( *p 

8 

001 ) ; 

preak 

de  fault 

: o r i 

ntf("bitotr= 

%3\n",hitptr); 

ex  i t ( 


( ( i + I ) 1 = X ) t e'^p  =<<  1 ; 

(♦tbitotr  > 7)  { 

bi tot  r = 0; 

P + + ; 


if  (i  < 8)  temp  =<<  (8  - i); 

return(  temo  K 000377  )! 


oak ( X ) 

int  X * ( / 

int  i » 
f or ( i =0 ; i 
oou  f ( i 1 

i = o; 

while  ( X ) 


( //oak  1 rast' 


< 2b; 

= & o; 


into  int  array 


Dbufl>++)  = next(  (*  >s  8)  ? 8 : x); 
X = (x  >=  8)  ? x-8  ; o; 

} 

> 

comprs ( X ) 

int  x;  < //cTOS  int  array  into  hits 
i nt  k » h i t S 1 ; 

Char  *i»*t; 

t = tbuf;  i = ibuf; 

for(x  = 0;k<25;k4.  + ) *t  + t =g,  0; 

t = t hu  f ; 

bits!  = 8 ; 

while  ( X ) { 

switch  (bitsl)  1 


case 

2: 

* t = 

*t  ! 

( * i 

060)  >>  a; 

t ; 

* t = 

*t  ! 

( * i 

♦ t 

8. 

017)  <<  u; 

X--  ? 

bitsl 

s 

a; 

brealt 

? 

case 

a : 

*t  = 

*t  ! 

( * i 

A 

A 

ra 

o 

t ♦ + ; 
*t  = 

*t  ! 

f *i 

+ 1 

& 

003)  <<  6? 

X ; 

bitsl 

~ 

6? 

break 

} 

case 

b ; 

*t  = 

*t  : 

( * i + + 

8 

0 7 7 ); 

t 

X ; 

bitsl 

- 

00 

break 

/ 

case 

8: 

*t  = 

*t  ! 

+ ♦ 

& 

077)  <<  2? 

X ; 

bitsl 

2; 

break ; 

cefauir:  or i nt f ( "b i t s 1 = %d\n", bitsl) 
ex i t ( ) ; 


> 

) 

) 

charde^i  ) //process  one  char  definition 
i nt  i ; 

int  rw»  //raster  width 

int  count?  //#  wds  in  definition 

int  r woe r wd ? / / r as t e r lines  oer  word 

rw  = retrw(); 

count  = wordc ( ) ? 

so ) i t ( ) ; 

drc  = put  save ( ) ? 

while  idrc)  1 //while  data  rows  are  left 
o = tbuf? 


b i t p t r = 0 ; 
if  (rw>3b)  { 

peaa( f pp » i buf » ( rw/3b  ♦ l)*fa); 
compps ( ( pw/ 36  ♦ 1)*6); 
pak ( pw ) ; 

w p i t e ( f nw » obu f f ( PwX8  ==  0)  ? Pw/8  ; pw/0  + 1)» 
bump(  (pwX8  ==  0)  ? pw/8  : Pw/8  + 1 ); 

dPc  =-  i; 

count  =•  Pw/36  + 1 ; 

} 

else  { 

pead( fpp» i but  <6) ; 
comops ( 6 ) ; 

pwpepwd  = (dPC  < 3b/pw)  ? drc  : 3b/pw? 
fop(i=0;  i < pwoepwd;  i ) { 

oak ( pw  ) ; 

wpite(fpw»obuf»(Pw%0  ==  0)  ? pw/8  : rw/8  + 1) 

bu""o(  (pw%P  ==  U)  ? rw/8  : rw/8  * 1 ); 

> 

drc  rwoerwd; 

count  =”  1 ; 

> 

} 

//tPash  extpaneous  bytes 
kill  (count  *b ) ; 


fontb1k(  ) ( //get  ascii  descpiption 

1 n t i » n ; 
n = bleft  = 0; 
q = 0 ; 
oi tpt  p = 2; 

'tobile  ( ( t e X t bu f (n + f J = nextcnanC  ))  1=  '\0') 

f 

k i 1 1 (57o  - q) ; 


cbap  nextcbarC  ) < //get  next  ascii  cnap  of  descrio 

cbap  te'po; 
i n t i » j I* 
temp  =&  0; 

fop(i=0;  i < 7;  it>)  ( 

if  (bitptp  ==  2 &&  bleft  ==  0)  ( 

d = i b u f ; 
pead(fpp»ibuf»bl; 
bleft  = b ; 
q =♦  b; 

) 

Switch  (bitptp)  ( 


case 

2: 

t emo 

= 

temp 

( *a 

& 

oao) 

> > 

5; 

b Peak ; 

case 

3: 

t eno 

= 

t eipp 

( *d 

020) 

> > 

o; 

b peak ; 

case 

u ; 

t e'no 

r 

t emo 

( *d 

& 

010) 

> > 

3; 

b Pea  k ; 

case 

5: 

t eno 

= 

t emp 

( *d 

& 

ooa ) 

>> 

2; 

bpeak ; 

case 

b : 

t emo 

z 

temp 

( *d 

& 

002) 

>> 

1 ; 

break; 
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e X i t ( ) ; 


) 

if  ( i <6  ) t eirp  =<  < 1 ; 

if  (f+bitotr  >71!  (bleft  ==  1 (bitotr-1)  ==  6))  { 
bi tot  r = 2; 
bleft  ="  1 ; 
d + + ; 

} 

> 

re  t u r n ( t entio  ) * 


EDF 


12  F»ay  1977 


EDF 


DESCRIPTION 

edf  (-]  l<Hfn>)  1 [-1  l<Hfn>]  l<num>J  J l<fn>) 


Edf  is  an  interactive  font  editor  which  orovides  the  ca- 
oabilitv  of  creating  and  maintaining  fonts.  If  given  no 
arguments#  Edf  enters  a create  mode.  A filename#  if 
given  is  assumed  to  be  the  name  of  a digitieed  font 
file?  otherwise#  a leading  indicates  that  <Hfn>  is  a 
vector  formatted  font  file  that  reouires  conversion  to  a 
dioitized  form  before  the  editing  function  may  oroceed. 
It  a DOint  size  is  not  soecifieo  as  an  optional  third 
araument#  a vector  formatted  font  will  be  digitized  at  a 
10  point  size.  The  term  "current  character"  (cc)  is  tne 
pointer  to  any  character  position  in  a font.  The  char- 
acter denoted  by  cc  may  or  may  not  be  in  the  character 
buffer  at  any  specified  time.  A user's  manual  [Ref.  71 
gives  a complete  cescription  of  Edf  and  its  use.  Brief- 
ly# the  available  commands  are' 


<number>  set  cc  to  <number> 

+ !-  i nc remen t I dec  remen t cc 


a 


add  a character  to  the  font  at  the  cc 


c s e 


change  lines  s through  e of  the  character  at 
cc#  prompting  for  each  line 


d s e 


delete  characters  s through  e from  the  font 


e 


s e 


edit  lines  s through  e of  the  cnaracter  at 
cc#  nromptino  for  each  line 


f 


turn  on/off  a switch  displaying  dimensions 
of  the  character  at  cc 


i s e fn  include  characters  s through  e from  font  fn 
fn  must  be  compatible#  remembers  fn 

1 s e list  lines  s throuoh  e of  the  character 

at  cc 


n 


o 


display  the  font  decription  and  a table 
reflecting  the  edit  status  of  every  character 
in  the  ^ont 

enter  an  interactive  module  to  change  any 
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\ 


f on t /c h a r ac t e r dimension  or  font  description 
LDF  EDF  EOF 


Q ouit»  warn  if  chanoes  have  been  made  but  not 

written  out 

si  s e shift  lines  s through  e of  the  character  at  cc 
r left»  riqhtf  uD»  or  down  one  pixel  and  list 

u 1 i nes  S t h rough  e 

d 

w fn  write  out  font  to  fn,  then  quit 

<rubout>  kill  any  comnang  oeinq  executed  without 

<break>  exiting  the  orooram 


Egf  promnts  with  the  octal  value  of  cc  followea  by  a ">" 
and  questions  "?"  any  illegal  commands.  Commands  to 
change  cc  may  be  preoendea  to  any  other  commano^  and  the 
effect  is  to  change  cc  and  then  execute  the  command. 
Additionally/  "f"  may  be  oreoended  to  any  command, 
’'lumbers  may  be  in  decimal  or  octal  (leading  0), 


FILES 


<fn>  may  be  a full  pathname?  otherwise# 
" / . f on t s . 0 I / f on t / " is  prepended  to  it.  Digitized 
Hershev  fonts  are  placed  in  a temporary  file  named 
"/.fonts.Ol/HFnMT”. 


EOF 


EOF 


EOF 


^define  error  return(l); 


int  readfp*  writefcJ 

i nt  Dt  s we  J 

int  p i d ; 

int  f r eenode  ? 

int  i n f on  t ; 

int  w r f 1 aq ; 


int  w r ; 


i n t 
i n t 
i n t 
i n t 
1 n t 
i n t 
i n t 
i nt 

i nt 
i nt 
i n t 
i n t 

i nt 
i n t 
i nt 
i n t 

i n t 
i n t 
i n t 
1 n t 
Char 


so*’  t y [3]  ; 
savet  t y ; 
on i n t r ( ) ; 
•charceff  *p 

cstat ; 
char  aes  [fcO]  ; 
Char  i duf  [ 3b]  ; 
char  tdufl'^000); 
int  hdr  i25faj  ! 
i nt  f hdr  l<^5bl  ! 
Struct  node  < 

int  code; 


s we 


in  ] 1 i s t 


on 

w i t hou  t 


'T'a X » 

ht»  'vaxM  f Int; 
dike;  Char  *bytc; 
edit; 
delete; 

tht»  tmaxw/  tiht; 
dim; 

i nc 1 ude ; 

r w » Ik,  r f t ; 
dot,  Dytes,  dre; 
s , e ; 
i n ; 

c,  peeke; 
first,  last; 

C h mod ; 

*n  ; 


//file  descriotors 
//Hershey  font  point 
//Child  process  id 
//ptr  to  next  free  node 
//current  character 
//initially,  0.  incremented 
//any  change  to  flag  a quit 
//writing 

//flag  to  turn  oft  displaying  of 
//diaonostics  during  file  writing 
//32o77  used  to  denote  base  node 
//font  dimensions 
//block, byte  counters 
//set  to  1 «hen  in  edit  mode 
//flag  in  cneckino  for  empty  fontfiles 
//temp  font  dimensions 
//char  dim  diplay  control  switch 
//flag  preventing  access  to  llist 
//during  an  include  command 
//character  dimensions 
//  " 

//command  arguments 

//I  if  current  character  definition  is 
//in  character  buffer,  0 otherwise 
//characters  on  the  command  line 
//line  ptrs  in  character  cuffer 
//I  if  char  in  buffer  was  modified 
//integer  pointer 
//O,  otherwise 
//ouffer  for  qtty(II) 

//terminal  Status 
//address  of  interrupt 
//character  pointers 
//holds  status  of  Char 
//holds  font  description 
//buffer  for  read (II) 

//character  buffer 

//hdr  tanle  of  edited/created  font 
//temo  hdr  tanle  during  an  include 
//a  node  holds  info  on  a sinole 
//character  stored  on  the  llist 
//character  code 


t r ao 


in  char  buffer 


char  *def; 

//ot  r 

t 0 

cHar 

de  f i n i t i on 

int  ns i ?e ; 

//size 

o f 

new 

definition 

char  stat; 

//status 

of  modification 

struct  node  ‘next; 
> iiistn^^i; 

/ /p t r 

t 0 

next 

none  in  llist 

struct  node  *head; 

/ /pt  r 

t 0 

head 

of  llist 

St  rue  t node  *ava i 1 t 

/ /o  t r 

t 0 

next 

free  node 

struct  node  *current; 

//pt  r 

t o 

node 

f ound  in  FI  NO 

lOS 

struct  node  * i nse r t ( ) ; / /node  returned  by  INStRT 
char  r f ont  H 1 e f'^0]  ; //tontfile  being  included  from 
char  wf ont f i 1 e [«01  ; //file  being  written  to 
char  sfontfi  let^O]  {” /.fonts. 01/font/ 

//oathname  header  of  fontfile  to 
//oe  edited 

char  h f s i z e ( 5]  { " 1 0 " ) ; //default  ot  size  for  Hprshey  font 

ma i n ( a rgc / a r q v ) 

int  argc;  char  ♦♦arqv;  ( 

i nt  i ; 

if  (argc  > 1)  { / /a r qumen t s ->ed i t mode 

if  (argy[l]{0]  ==  '-'1  (//digitize  Hepshey  font 

if  (arqc  ==  3J  {//check  any  point  size 

if  ((ptsize  = a t o i ( a r qy  ( £? ) ) ) > 42)  { 

p r i n t f ( "no i n t size  exceeds  42"); 
e X i t ( ) ; 

) 

o = h f s i ze ; 

for(i=0;(*c+t  = arqy(2)(i))  1=  ’\0';i++); 

} 

p i d = f o r k ( ) ; 

if  ( p i d 1 = 0 ) 

while  ( oid  !=  wait()  ) ) 

else  //create  process  to  digitize  Hershey  font 
execl  ("makenf","makehf",arqv(lJ  »hfsize/0); 
readfp  = onen("/. fonts. 01/HFONT"»C); 

) 

else  if  ( argvlll [0]  ==  '/'  ) {//full  pathname 

readfp  = ooen ( a rqv  ( 1 ] » 0 ) ; 

) 

else  { 

p = a r q V [ 1 ] ; 

f o r ( i = 1 fa ; ( s f c n t f i 1 e ( i ) = *p  + +)  1=  '\0';i+  + )» 

readfp  = ooen ( s f on t f i 1 e » 0 ) ; 

) 

edit  = 1 ; 

) 

i n i t ( ) ; 

■ s i gna 1 ( 2 , on i n t r ) ; //set  interrupt  trao 
whiled)  { 

se  t e X 1 t ( ) ; 

Print f("\n%3o>  "/ infont )J 
neekc  = (oeekc  ==  '\n')  ? 0 : oeekc; 
i f ( command ( ) ) { 

o r i n t f ( " ? \ n " ) ; 

if  (oeekc  1=  '\n')  w h i 1 e ( ( c =ae t c ( ) ) 1=  *\n')  ; 

} 

) 

> 

i n i t ( ) { 

1 n t i ; 

if  (edit)  { 

if  (readfp  > 0)  fontfadr(); 


1 Ofa 


else  {//create  mode 


zhdr (hdr ) ; 

Drintf("\nfont  heioht  ? ")» 

w h i 1 e ( ( h t =ge t num  ( ) ) < 0 ||  ht  > 120)  { 

oeeiec  = 0;  orintfC"  height  ? ");  > 

orintf("  Xd  !\n"/ht)» 
peekc  = 0; 

DrintfC" maximum  character  width  ? "); 

while((maxw=oetnum())  < 0 !!  maxw  > 256)  { 

peekc  = 0;  orintfC  "?^ax  width  ? ");  > 

orintfC"  Xd  l\n",maxw)» 
oeekc  = 0 ; 

orintfC  "lonical  height  aoove  baseline  ? "); 

whileCClht=aetnumC))  < 0 !!  Iht  > ht)  C 
peekc  = 0;  orintfC  "Iht  ? ");  } 

orintfC"  Xd  l\n";lht); 

oeekc  = 0 ; 

orintfC "Tyoe  in  any  one-line ")» 

orintfC"  font  descriction,  if  de s i r eo  . \ n " ) ; 

qe  t name  C de s ) ; 

} 

max  = i2677;  wrflaa  = 0; 

head->code  = max; 

head->next  = 0;  chmoo  = O; 

include  = i;  freenode  = i; 

infont  = 0;  wr  = 1; 

head  = Mist;  avail  = iillisttl); 


zhdrCh)  //zero  a hgr  table 
i n t h f ) ; { 

register  int  i; 
n = h ; 

f o r C i =0 ; i <25o ; i + t ) *n  + t; 


int  getcf)  {//return  next  char  in  command  line 

if  Ccee  k c ) { 

c = oee k c ; 
ceexc  - 0 ; 

> 

else  { 

c = aetcharC); 

if  Cc  1 = ' ' ) oeekc  = c ; 

) 

returnCc) ! 


fonthdrC)  {//read  hdr  table  and  font  dimensions 
int  1 » Char  t ; 
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read(readfD»KarfSl^); 
read(readfp>(4ht  i 
pp i n t f ( " \nHe i qh t %a 
if(ht>120!!ht<0)  { 

DPintf("too  high");  exit()/  ) 
read(readfp»&maxw»2) ; 

p r i n t f ( " ^a X i mum  character  width  %d  ”»maxw); 
if(maxw  > 25b  !!  maxw  < 0)  { 

orintfC'too  wide");  exit();> 
read( readtPf&l ht  »2) ; 
p r i n t f ( "Log i c a 1 neight  %d\n"»lht); 
if(lht>htl!lht<0)  { 

printf("too  high");  exit();> 
seek (readtp»51fi»0) ; 
p = oes ; t = 1 ; 
for(i=0;  t !=  '\0';i++)  { 

r e a d ( r e a d t p » & t » 1 ) ; 

♦P++  = t; 

) 


int  qetnumC)  i//convert  numeric  string  and  rtrn  value 
i n t i * b a se ; 

i = o; 

while((c  = getc())  ==  ' ' ) ; 

i f (c  >=  ’ 0 ' X.&  c <=  '9  ' ) i 

base  = (c-’O ' ) ? 10  : 8; 

Peeke  = c; 

if  (base  ==  lu)  wh  i 1 e ( ( c = ae  t c ( ) ) >='0'  ilS  c<=''’')  i 
peeke  - O; 

i = i*base  ♦ c - 'O'; 

) 

else  wh i 1 e ( ( c = ge t c ( ) ) >='0'  &&  c<='7')  { 

peeke  = 0; 

i = i*base  c “ 'O'; 

) 

neexc  = c; 
ret  u rn  ( i ) ; 

> 

else{//there  was  no  numeric  string 
peexc  = 0; 

if  (c  ==  '♦')  return(-2); 

if  (c  ==  '-')  return(-3); 

peeke  = c;  //c  will  be  processed  later 

r e t u r n ( - 1 ) ; 

) 


i nt  command! ) ( 

/*  Process  the  command  line! 

« 

update  infont 

check  command  arguments 

execute  command 

finv  oroblems  ? return  a 1;  otherwise*  return  a 0 */ 
regi ster  i , j ; 


i n t t etTD  t k,  h,  hb»  Ih; 
switch(ten'D  = qetnom()) 


{ 


i 

i 

j 


I 

\ 

f 

i 

} 

[ 


case  -2;  //increment  infont 

if  (chmoa)  outaef()» 
i n f on  t t ♦ ; 

in  = 0 ; c ftmoc  = 0 ; 
break; 

case  "3:  //decrement  infont 

if  (chmod)  outdef(); 
infont--; 

in  = 0 ; cbmoc  = 0 } 
break ; 

case  -l:  break;  //no  cbanqe 

default;  //infont  qets  temo 
if  Ccbmod)  DutdefC); 
infont  = t emc  ; 
in  = 0 ; c hmoc  = 0 } 
break  ; 


> 

if  (infont  < 0)  infont  = 127;  //cbec<  for  wraoaround 
if  (infont  > 127)  infont  = 0; 
whi)e((c  = aetc())  ==  ' ' ) ; 

switch  ( c ) { 

case  'a';  //ado  a character 

instr();  c=aetchar();  qetdim();  c=tbuf; 
for ( i =o; i <«ooo;  i +t)  *d++  = 0 ; 

bytes  = (rwXfl  ==  0)  ? r«/P  ; rw/8  ♦ l; 

i n ♦ ♦ ; wrflaq+t;  chmod++;  break; 

case  'c':  //chanoe  lines  s thru  e 

if  ( dc h a r de ^ ( r ead f c ) ) ( 

if  (setse(ht))  error; 
sbase ( ) ; 

for(i=s;  i < e;i+^+) 

for(j  = first;  j < 1 a s t f i r s t ; j++) 
t bu f ( i *b y t e s ♦ j ) = 0; 

for(i!  = s;  i <=e;  !♦+)  ( 

D r i n t f ( " % 3d  " » i ) ; 
for(j=first;  j < last  + first;j-t+) 
t bu f I i *by t es ♦ j 1 = detdef(); 

} 

in**!  cstat  = 'm'; 
wrflaat+;  chmod+t; 

» 

else  error; 
b reak  ; 

case  'd';  //delete  char's  s thru  e 
it  (setse(128))  error; 


I 


cstat  = 'd* ; 

f or ( i n f ont =s ; i n f on t < =e ; i n f on t + + ) { 

i f ( hd r ( i n f on t * 2)  ==  0)  continue? 
hd r [ i n f on t *2 1 = 0;  putdef()» 

} 

in  = O;  MPflad-*-*;  hreak; 

case  *e':  //eoit  lines  s thru  e 

i f (acharae f (readf o)  ) { 

i t ( set se  (h t ) ) error; 
sbase ( ) ; 

atty(l»sgtty);  savetty  = sgttyfl); 
for(i=s;  i<=e»i++)  { 

p r i n t f ( '*  \ n X 3d  " , i ) i 
sqttytl)  =1  03;  s 1 1 y ( 1 » sgt t y ) ; 
for(j=first;j<first+last;j++) 

1 ist("Xc%c%c%cXc%c%c%c"»tbuf  [i*bytes  + jl  )? 
sqttyil!  = savetty;  s t t y ( 1 » sgt t y ) ? 
print f("\n  "); 

for(j=first;j<first+last;j+^) 
tbuf  I i *by t es  + j ] = aetoef(); 

} in  + + ; wrflaa  + +;  cH"'oat  + ; cstat  = 'm'; 

} else  error;  break; 

case  *f’:  //sfc.itch  char  ginnension  flag 

oifn  =(diml  ? 0 ; 1 ; 

break; 

case  'i';  //incluoe  char's  s thru  e fron  rfontfile 
if  fsetse(12e))  error; 
getnane(rfontfi le); 

poend(rfontfile»"/. fonts. 01/font/"); 
i f ( ( t eftip  = ooen  ( r f ont  f i 1 e » 0 ) ) < 0)  < 

orintf(" cannot  ocen  Xs"»rfontfile);  error; 

> 

cpy(hgr»fhdr);  read(teT'D,hdr/5l2); 
read(temp,itht»2);  reaa(temp,itnaxw»2); 
read(tei'p,>itlht»2); 
if  (reject())  { 

or i nt f ( "conpat i b 1 e "); 
coy ( f hdr f har  ) ; error; 

) 

in  = i nc 1 ude  = 0 ; 
cstat  = 'i';  wr  = 0;  dre  = 1; 
f o r ( i n f on t = 5 ; infpnt<=e;  infont++)  i 
if  ( gc ha  roe f ( t eno  ) ) putdefC); 
else  if(drc  ==  0)  putdef(); 

} 

c 1 ose ( t enr ) ; wr  = i; 
for(i=0;i<s;if+)  ( 

hdrli*2}  = fhgrfi*2l;  hdrli*2+l)  = f hgr  I i *2+ 1 ) ; 

) 

f 0 r ( i =e ♦ 1 ; i < 1 28 ; i + ♦ ) { 

hgr(i»2)  = fhgr(i*2l;  hdr[i»2+l)  = fhdrti*2tl); 

) 
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include  = 1?  wrflaa+*»  hreak; 


e //list  lines  s tHpu  e 

if  (qc h arde f ( read f p ) ) < 

if  (setse(ht))  error? 
sbase ( ) ; 

f or ( i =s;  i <=  e;  i ++)  { 

orintf("\n5;5d  ”»i); 
f or ( j =f i rst ; j < last  * first;  j++) 

1 i st ("%c%c^cXc%c%cXcXc"»  tbuf  [i *bytes  + jl  ) 

} 

i n + + ; 

) 

else  error; 
creak; 


e ' n ' : 


//display  font  description  and  table 


p = oe  s ; 

if(*p  ==  '\0')  orintf("no  descrip tion\n"); 
else  for(i=0;*o  1=  ’\0';  i+t) 
putchar(*p++) ; 
putchar ( ' \n ' ) ; 

p r i n t f ( " 0 1 2 3 U " 1 ; 

p r i n t f ( " 5 b 7 " ) ; 

for(i=0;  i<12ft;i++)  { 

i f { i %a  ==  0)  ( 

if  (i  ==  0)or i nt f ( "\n000"  ) ; 

else  if  (i  < 0100)printf("\n0Xo"»i); 

else  printf("\n%o"»i); 

> 

p s t a t ( i ) ; 

> 

printf("\n\n'  ' undefined  'X'  unmodified  " ) > 
ppintfC"'!'  included 

printf("'D'  oeleted  ' M ' modified"); 
break; 

e 'o';  //modify  font/char  dimensions 
instr();  c = qetcnarC); 
getdimC);  break? 

e 'o';  //d-uit»  warn  if  not  written 
if  ( w r f 1 aq ) { 

w r f 1 ao  = 0 ; 
printf("write??"); 
error? 

) 

e X i t ( ) ; 


e 's';  //shift  lines  s thru  e once 
i f ( qc ha r de f ( r ead f p ) ) ( 

neekc=0;  temo=qetc()? 
if  (setse(ht))  error; 
s b a s e ( ) ; 


switch  ( temp ) 


{ 

case  *r':  //right 

for(i=s»  i<=e;  i+t)  { 

1b  = 0; 

for(j=first;  j < first+last;  jtt)  { 
hb  = lb;  p = i t bu f [ i *b y t es ♦ j ] ; 
if  (*p  & on  lb  = i;  else  lb  = 0; 

* p = > > 1 ; 

if(hb)  *p  =1  0200;else  *d  =&  0177; 

) 

} break; 

case  ' 1 ' ; //left 
for(i=s;i<=e;i+tl  ( 
n b = n ; lb  = 0; 

for(j=firsttlast-l;j>=first;j”“)  { 
p = *.tbuf(i*bytestj]; 

if((*p&0200)>>7)  hb  = l;  else  hb  = O; 
*p  =<<  l;  if(lh)  *p  =!  01;  lb  = hb; 

} 

} break  ; 

case  ' u ' ; //up 
f or ( i =s  ; i < = e;  i t+  ) { 

if(i  ==  0)  conti nue ; 
fcr(j=first;  j<first+last;j+t) 

t bu f [ ( i - 1 ) *by t es t j I = t bu f I i *by I es + j ) 

} 

for(j=first;  j<firstf1ast;j++) 
tbuf(e*bytes+jl  - 0; 
break; 

case  'o':  //down 

f or ( i =e; i >=s ; i ( 

if  (i  ==  ht“l  ) continue; 
for( j=first; j<first+last; it*) 

t bu f ( ( i ♦ n *oy t es  ♦ j 1 = t bu f ( i *oy t es+ j 1 

> 

forCj=first;j<first+last;jt+) 
t bu f ( s *by t es ♦ j 1 = 0 ; 

break; 


default:  error; 

} //list  the  shift 
for(i=s;  i <=  e;  i++)  { 

orintf("\nX3o  " t i ) ! 
f or ( i =f i rst ; j < first+last;  jtt) 

1 ist  ("%c’4c*/.c'/.c%cXc%cXc"  »tbuf  li  *byles  + j)  ) » 

1 

in+t;  wrf1aq++;  chmod++;  cstat  = ' m ' ; 

} else  error;  break; 


case  'w*:  //write  to  wtontfile  and  auit 

if  (chmod)  ctitdefC);  wr  = 0» 
getnawe(wfontfi le)» 

//no  writing  to  file  being  edited 
if  ( c '"P  r ( w f on  t f i 1 e » s f on  t f i 1 e ) !! 

CIT'D  r ( w f on  t f i 1 e »"  HFOMT  " ) ) { 

or i n t f ( " w r i t i ng  to  existing  file  ");  wr=lJ  error; 

) 

i f ( ( wr i t e f P = c reat ( w f ont f i 1 e » 0o6b  ) ) < 0)  { 

printf("file  ");  error; 

} 

zhdr ( f hdr ) ; 

w r i t e ( w r i t e f c » f hd r , 5 1 2 ) ; //write  blank  hor  table 

write(writefc»&ht  <2); 

wri  teCwri  tefc/f^maxwr?)  } 

write(wri tefc»&1rt»?); 

bike  = l;  byte  = t>;  o = aes; 

for(i=0;  *D  !=  '\0';h.  + ) { 

w r i t e ( w r i t e f o » O'*- ♦ » 1 ) ; bu'T'p(l); 

w r i t e ( w r i t e f o » D » 1 ) ; bumo(l);  in  = O; 
f o r ( i n f on t = 0 ; infont<  128;  infont++3  { 

if  ( hdr [ i n f ont *2)  ==  0)  continue/  //no  char  here 
else  if  (fino(infont))  {//oet  it  froir  llist 
if  (cur  rent ”>ns 1 ze  ==  0)  continue; 
fhdr (infont*21 =fngr  finfont*2] S0377) ! (bl kc<<8); 
f hdr  ( i n font *2+ 1 1 = bytC/ 

wri te(wri tefD/Current~>def/Current->nsi ze)  ; 

bumo (current- vb  si ze) ; 

free(current->def); 

) 

else  if  (edit)  {//oet  it  fron"  file 
i = gc ha r de f ( reaa f p ) ; 
p = t bu  f ; 

fhgr linfont*21 =(hbr (infont*2) s0377)  1 (bl kc<<8)  ; 
f hd r ( i n f on t *2 ♦ 1 ) = bytC/ 

w r i t e ( w r i t e f D / c / 8 ) ; bumo(8); 

p =♦  bytes*rfr  8; 

wri te(wri tefD/0/bytes*arc  ) ; 

bunc (bytes* dre); 

) 

else  error; 

> 

seek (wri tefO/0/0)  ; 

wri te(wri tefp/ fhgr, 512)  ; 

gel ete  = 1 ; 

//remove  any  empty  fontfile 

f o r ( i =0 ; i <256 ; i s t 2)  if(fhdr(il  > 0)  Delete  = 0; 
if  ( de 1 e t e ) ( b 1 kc  = byte  = O;  un  1 i n k ( w f on t f i 1 e ) ; > 
print  f ("%1  \ n'*/Ol  kc*51?+bytc)  ! 
e X i t ( ) f 


case  '\n';  break;  //  sync 


1 1 3 


default: 

printf("%c  "»c); 
error; 


return ( 0 ) » 


bumoCi)  //running  count  wtontfile  size 
//in  clocks  and  bytes 
inti;  { 

if  (bvtc+i  >=  512)  ( 

if  ((b)kc  + ( b V t c ♦ i ) /5  1 2 ) < 255) 
bike  =+  (by  t c i ) /5  1 2 ; 
byte  = (bytc+i)%512; 

> 

else  if  (byte+i  > 527oH)  { 

printf("file  too  bin");  exit() 

> 

else  byte  =+  i; 


else  byte  =+  i 


int  C'ror(pl»D2)  //rtn  1 if  ol  1=  o2;  otherwise^  0 
char  *pl»*p2;  { 

f o r ( ; ; ) ( 

if  (*ol  1=  *d2++)  return(O); 
if  (*ol+'*-  ==  *\0')  return(l); 

) 


cpy(nl»n2)  //cooy  ol  to  o2 
int  *n  1 , *n2;  ( 

int  i ; 

f or ( 1 =0 ; i <256 ; i t t ) ^02++  = *nltt; 

) 

opend(ol,c2)  //preoeno  o2  to  pl 
char  pi  U » p2  (1  ; ( 

char  *ol»  *o2»  tl^Ol; 
bl  = pi;  b2  = t; 

while((*b2++  = *bl++)  1=  '\0')  ; 

b2  = p2 ; b 1 = p 1 ; 

wh i 1 e ( ( *b I = *b2t+)  1=  '\0')  ; 

o2  = t ; b 1 ; 

wnile((*Dlt'*’  = *o2  + + ) i=  '\0')  ; 


int  rejeetC)  ( //rtn  1 if  files  are  i ncompa t i b 1 e ; ow » 0 

if(tht  1=  ht  I!  tiht  ;=  Iht  !!  tuaxw  > maxw)  return(l); 
else  return (0); 

> 

onintr()  { //restore  environ,  reset  int  trao 


signal (2,onintr); 
i f ( savet  t y ) { 

sgttyClJ  = savetty; 
savetty  = 0; 
stty(l»sqtty); 
savetty  = 0 ; 

> 

reset () ; 


i nt  gchardef ( f o) 

/*  Get  the  character  definition  for  the  current 
character,  put  it  in  the  char  buffer,  expand 
blanx  rows,  and  oisolay  necessary  diagnostics  */ 
i nt  fpJ  ( 

reg i s t e r i , i ; 
register  char  *to; 

if  (in)  return(l);  //it's  already  there,  rtn  1 
if  (find(infont)  include)  ( //it's  on  the  llist 
if  t c u r ren t -> s t a t ==  'd')  ( 

printf("deleted  *'); 
ret  urn ( 0 ) ; 

> 

t p = t ou  f ; 

chardef  = current->def; 

»tptt  = rw  = ‘Chardef-tt;  rw  0377; 
rw  =!  (*tptt  = *charde*t-t)  <<  8; 
if  ( r w <=  0 ) ( 

printf("Xo  raster  width  *4d  ",infont,rw)j  return(O); 

) 

bytes  = (rw%8  ==  0)  ? rw/8  : rw/**  +i; 

*tDtt  = )k  = *ctiardeft  + ; Ik  =&  037  7 ; 

Ik  =,'  (*tott  ~ »chardeftt)  <<  8; 

*tptt  = rft  = *C  h a r oe  f ♦ ♦ ; rft  0 37  7 ; 
rft  =!  (»tr>^t  = •Ct'ardef+t)  <<  Si 

*to+»  - drc  = *crardef++;  drc  =S  0377; 
drc  =1  (*tr)  + > = •c’^aroeft^)  <<  8; 

1 f ( d r c = - 0 ) ( 

printf("orintaole  "); 
re  t u rn ( 0 ) ; 

) 


rot  = ht  - (arc  ♦ rft); 

for(i=0;  i < r t;  (♦♦) 

forfjso;  j < bvtes;  )♦♦)  *to>t  = 0; 
for(i=0;  1 < drc;  »♦♦) 

for(j=0;  j < bytes;  )♦♦)  *tot»  = *c*'araeftt; 
for(i=0;  i < Dot;  !♦♦) 

for(j=0;  j < bytes;  )♦♦)  *tctt  = 0; 
if  (wr  iii  d i 71 ) cchardimf); 
re  t u r n ( 1 ) ; 

) 

//get  it  froTi  the  file 

if  ( hd r ( i n f on t *2 1 ==  h)  < 

Drintf('*undefineo  ");  return(O); 
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if  C(j=  ( hdr  ( i n f ont  *2]  8.  0177^00)  >>  P)  1=  0)  { 

j =8.  0 3 77  ; 
seek ( f D / j r 3 ) ; 

seekCfDfhdr [infcnt*2+ll  t 1 ) i 

> 

else  seek  ( f D » hdr  ( i n f on  t *2  1 ) » 0 ) ; 
read(fD»*.  rwf2); 

1 f (rw  <=  0)  { 

Drintf("Xo  raster  width  Xd  "»infont>rw);  return(O); 

> 

read ( f o » i 1 k / 2 ) ; 
read(fpf8rft»2); 
read(fp»&drc»2); 
if(drc==0!4Siwr)  i 

printf("printablp  ”); 
r e t u r n ( 0 ) ; 

> 

Dot  = ht  -(drc  + rft); 

bytes  = (rw’48  ==  0)  ? rw/H  ; rw/8  + i; 

t p - t bu  f ; 

*tp++  = rw  4 0377; 

*tp++  = ( rw  i 0177400)  >>  8; 

*tp+t  = Ik  4 0377;  *tp++  = (Ik  & 0177400)  >>  8; 

*tp  + + = rft  ii  y 37  7 ; *tp  + + = (rft  i 0 1 77400  ) >>  8; 

*tp++  = drc  i 0377;  *tp++  = (drc  i 0177400)  >>  8; 
for(i=0;  i < rft;  i*+) 

for(J=0;  j < bytes;  j++)  *tp++  = o; 

for(i=0;  i < drc;  i++)  ( 

read ( f p » i Du f f bytes); 

for(j=0;  j < bytes;  j++)  *tp++  = ibuflj); 

) 

for(i=o;  i < Dot;  itt) 

for(j=0;  j < oytes;  i++)  *tp++  = 0; 

if  (wr  Ki,  dim)  pchardi^(); 
r e t u r n ( 1 ) ; 


int  setse(x)  //set  conTand  arris  s and  e 
i nt  X ; { 

pee«c  = 0 ; 

s = getnun(); 

1 f (s  < 0)  ( 

5 = 0 ; e = X - 1 ; 
return(O) ; 

) 

e = getnu'i'  ( ) » 
if  ( e < 0 ) e = s ; 
if  (e  < s)  error; 

if((s  >=  X I!  e >=  x)  X ==  128)  error; 
if((s  > X !!  e > x)  X ==  ht)  error; 
return(O) ; 


list(fmt»ryt) 

//list  byte#  bit  by  bit»  0=>'.', 


i 


I 

(J 

i! 


* 

f 


1 =>  ' 0 ' 


char  * f mt  » by t ; < 

printf(fmt,0?00i4byt?’0':’.’,010  0&byt?'0';' 

00a0&byt?'0':'.',0020&byt?'0':' 
0010  8,byt?'0';'.',000a&Dyt?'0';' 
000?Sbyt?'0':'.’,0001  8,byt?'0':' 

> 

i nt  f i nd ( i ) 

//if  current  character  is  on  11ist»  rtn  1 and 
//current  points  to  correct  node?  ow»  rtn  0 
inti;  { 

register  struct  nooe  *otr; 
ptr  = head; 

while  li  > otr->code  ) 
ptr  = Pt  r->next ; 
if  ( i ==  Pt  r->code  ) { 

current  = ptr; 
r e t u r n ( 1 ) ; 

> 

else  return(O); 

} 

get  name  I f i 1 e ) 

//get  name  ending  in  '\0*  and  stick  it  in  fil 
cnar  filed;  { 

while((c  = oetcC))  ==  ' ' ) ; 

i f (c  !=  '\n'  ) { 

p = file; 
do  { 

»o  + 1 = c ; peekc  = 0 ; 

1 while((c  = cetc())  1=  '\n'l; 

*p  = '\0'; 

> 

} 

pu  t de  f ( ) { 

//out  definition  in  char  buffer  on  llist 

if  ( f i nd C i n f on t ) 1 1 node ( c u r r en t f i n f on t ) ; 

else  < 

Inode ( insert (avai  1 # infont)/ i nfont ) } 
if  ( f r eenode  > 1 ?8  ) ( 

printff" overflow");  exitC); 

> 

avail  = i 1 1 i s t ( + -t  f reenode)  ; 

) 

) 

1 node ( Pt r / X ) //do  the  work  for  PUTDEF 
struct  node  *otr;  int  k;  < 
register  int  i»j;regiscer  char  *tp; 
int  clear; 
pt  r->code  = k ; 
if  (cstat  ==  'd')  < 

otr->stat  = cstat; 
re  t u r n ; 


> 


) //count  blank  rows  at  too  and  bottom 
pft  = bot  = 0; 
i = 0 ; clear  - 1 ; 
whileCi  < ht  &&  clear)  i 

for(j=8;  i < bvtes  +•  ft?  )♦  + ) 
if  ( t bu f { i *0 V t es  + j 1 1=  0) 

if  Cclear)  rft  = i+i; 
i + + ; 


clear  = '\0 


> 

1 f 


(i  < ht)  { 

i = ht-i;  clear  = 1; 
while(i  > 0 clear)  i 

for(j=8;  J < bvteS  + 8? 

if  (tbuf[i*bvtes+i) 
if  (clear)  bet  = ht“iJ 
1 — ; 

) 


j ♦ + ) 
1=  0) 


clear  = ' \ 0 


O; 


) 

dre  = lore)  ? ht 
if(drc  ==  0)  rft 
to  = ptr->def  = 

*tO  + + - rw  < 0 577;  *to  + +'  = (rv»  ^ 
*tp  + + = 1 k & 0377;  *to  + + = (Ilf  & 
*tp+t  = rft  & 0377;  *tp++  = (rft 
*tp<-+  = dre  i 0377  ; *to  + + = (dre 
for(i=rft;  i < r f t +drc ; i + ♦ ) ( 

for(j=B;  j < bvtes  + 8;  /'+♦) 

~ t bu f ( i *by t es t i 1 ; 

) 

otr->nsize  = 8+drc*bytes; 
pt  r->stat  = cstat ; 


- ( r f t +ho  t ) 

= Ik  = 0 ; 

al  loc(bytes*drct8)  ; 

0 177400) 
0177400) 
& 

& 


>>  8 ; 

>>  8; 
0177400)  >>  8; 
0177400)  >>  8; 


struct  node  *insert(a»i) 

//rtn  a node  for  PUTOEB  to  use 
struct  node  *a;  int  i;  ( 

register  struct  noce  *ptr,*temp; 
t emo  = or  r - head; 
while(  1 > ctr->cooe  ) ( 

t enp  = pt  r ; 

Pt  r = ot  r->nex  t ! 


> 

if  (ntr  ==  head)  { 


(ntr  ==  head) 
a->next  - head; 
head  = a ; 


) 

else  ( 

a->next  = temo->next; 
ten'p->next  = ai 

} 

a->stat  = a*>def  = a->nsize  = 0; 
r e t u r n ( a ) t 


sbase()  i //set  horizontal  starting  point  for  char  def 


I 18 


first  = flJ  last  = bytes*  //normal  char*  default 
if  (bytes  > ( //too  wide*  qet  a starting  ct 

printf("\ntoo  wide...startinq  where  ?"); 
oeekc  = 0; 

while((last  = aetnum())  < 0 !!  last  >=  rw)  { 

peekc  = 0*  printfC" where  ?")*  1 

oeekc  = 0 ; 

last  = (last  ==  0)  ? 1 ; last/8  1* 
first  = first  + last-1*' 

last  = ( ( h V t es > 6- f i r s t ) > ^)  1 9 z by tes+8-f i rst ; 

i qetdef()  { //oet  one  byte  of  a definition 

I intmask,i,j; 

i P e e k c = 0 ; 

[ while((c  = netcH)  1=  '0*  c 1=  ; 

1 peekc  = c * 

! i = j = o; 

I mask=0u00; 

I while((j*t  < 8)  ((c=detc(n  ==  'O'  ’,!  c ==  '.'))  { 

I oeekc  = 0 * 

[ if((mask  = mask>>l)'iRc=='0') 

i = I mask ; 

> 

return(i); 


pstat(i)  //print  char  status  for  eoit  table 
inti;  ( 
if  (find(i))  ( 

s w i t c h ( c u r r en t -> s t a t ) < 

case  'o':  orintf(''  0 ")*' break.' 

case  'i':  printf("  I ");break; 

case  'm':  printf("  ^ ");break.' 

> 

else  if  (hdr(i*?J  ==  0)  printf("  ").' 

else  printf("  k "); 


pchardim()  ( //disolav  char  dimensions 
i n t i * 

if((i  = h d r ( i n f on  t * 1 R 0377  ) ==  0 ) ( 

or i nt f ( "unde f i ned"  ) * return; 

) 

printf("rw  Cw  "*rw*i)* 

if  (rw  ==  i)  orin»f(''lk  Xd  rk  Xd"*lk*lk); 

else  if  ( 1 w ) { 

if  (1k  + i ==  r«)crintf("lk  rk  '4d"*lk*0); 

else  printf("lK  -d  rk  5id"*lk,rw  -i-lic); 

) 

else  crintf("lk  %d  r*  “d"*l<*rw-i); 
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DPintM"  ht  %a  tht  Xa  ”,ht,lht); 
DPintf("rft  Xd  drc  %d\n",rft*drc); 


ae  t d i m ( ) { 

/*  Look  for  a number  and/or  name.  Take  both  as 
a requests  rejectinq  invalid  requests  with  a '?' 
Quit  on  't'  and  return  to  the  main  commano  looc  */ 
int  ifj»  font;  char  namefPOl; 
j = hdr(infont*21^0577;  font  = 0; 
while  ( 1 ) { 

oeekc  = 0;  Drintf(’*\nX3o">  ”»infont); 
i = qetnum();  oe t n ame ( name  ) » 
i f ( C mp r ( name » " t " ) ) break; 
if(cmpr(name»"i"))  instr(); 
else  if(cmor(narre»"infont"))  < 

infont  = i;  i = gc h a r de f ( r e ao f o ) ; 

> else  if(cmDr(name*"o")l  { 

printf("Xs\n",oes); 
pee<c  = 0;  get  name f oes  ) ; 

} else  if(cmDr(rame»"o"))  ochargimC); 
else  if(cmpr(name»"f")) 

printf("hr  Xc  maxw  %o  Iht  %a\n"»ht»maxw»lht) 
else  if(cmpr(name,"ht"))  i 

if(i  >=  lht)(  ht  = i;  wrflag++;  > 
else  printf("\n?  "); 

} else  if(cmi:ir(name,"lht"))  { 

if(i  <r  ht){  Iht  = i;  wrflaq++;  1 
else  printf("\n?  ”); 

) else  if(cmpr(name»"maxw''T)  { 

if(i  < 0 II  i > 25h)  {maxw  = i;  wrflaatt;  } 

else  printf("\n?  "); 

> else  if(cmor(name/"cw"))  ( 

i f ( qc h a roe f C r eao f p ) ) { 

i f ( i < = r w ) < 

hgr[infont*21  0177uo0; 

h g r t i n f on t * 8 1 =1  i s 0377  ; 

Ik  = rw-i;  font  = i; 

> else  printf("\n7  "); 

} else  nrintfC"  Cw  now  %a\n"/(hgr[infontJ=i) 
} else  if(cmor(namer"rw"l)  < 

if  (qcharoef ( reaof p) ) ( 

i f ( i <=  maxw  ) { 

rw  = i ; font  - 1 ; 

i f ( rw  < j 1 { 

hdr  ( i n f ont *21  =&  0177400; 
h g r [ i n f om t ♦ 2 1 =1  i & 0 37  7 ; 

Ik  = 0 ; font  = 1 ; 

> 

> else  orintf("\n? 

1 else  orintff"  rw  now  Xg\n",(rw  = i)); 

1 else  if(cmpr(name*"lk"))  ( 

i f ( gc h a rde f ( read f o ) ) { 

i f ( p w = = j 1 { 

if(i  ==  0)  ilk  = i;  font  = i;  ) 


1 

e1seDrintf("\n?"); 

>elseit(i<=rw-/)<lk=i;font=l;} 
else  printM"\n? 

> else  printfC"  Ik  now  %{j\n"»(1k  = i))» 

> else  i f ( c mor ( name , " r k " ) ) { 

i f (qcharaef  ( reacif o)  ) { 

i f ( rw  ==  j } { 

if  (i  ==  0)  ; else  printf("\n?  "); 

> else  if(i  <=  rw-j)  { 
if(i+1k  ==  rw-j)  ; 
else  { In  = rw-i;  font  = 1»  > 

) else  print^("\n?  "); 

>elseprintf("\n?");  j 

>elseprintn"\n?");  s 

> i 

if  (font)  { 

w r f 1 30+ + ; c 3 t a t = ' m ' ; pu t rie f ( ) ; i n = 0» 

) 


instr()  { //otsolay  instructions  for  GETDI^^ 

printfC  " '‘I  odifiaOle  dimensions  areiXn"); 

Drintf("neiqht”  'nt'  max  ct'aracter  width-  'maxw'")» 
print+("  logical  heiqht-  ’1ht'\n\n"); 
p r i n t f ( "Mod  i + i ao  1 e ChitiflCTE'?  dimensions  are:\n"); 
printfC "raster  width-  'rw'  character  width-  'cw'"); 
printfC"  left  kern-  *lk‘  right  nern  'rk'\n\n"); 
printfC "Tyoe  'i'  for  instructions*  'p'  for  ")* 
printfC "dimensions  of  character  in  huffer.Nn"); 
printf("To  move  to  another  character,  update  "); 
print  f ("  ' infont  ' .\n")  ; 

printfC  "\nGet  font  dimensions  with  'f'.  "); 
printfC "Modify  font  na-e  with  'd'.  If  you're  adding"); 
printf("a\n  character,  make  chanoes  in  this  order  only:"); 
printfC"  'rw',  'Ik'  , then  'cw'.\n"); 

D r 1 n t f ( " \n I mpos s i b 1 e modifications  are  rejected...."); 
printfC "some  examole  inouts  might  b®\n"); 
orint+C"  '22  Iht',  'Oo3  infont',  'i',  or  '0  lk'\n\n"); 
printfC  "You'll  be  pro me  ted  with  a '->'.  "); 
printfC "when  you  are  finished,  tyoe  't'...  \n\n"); 
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DtSCRIPT lOM 


prfont  I -<nu(noe  0 1 <fn>  <fn>  ...  <fn> 


Prfont  takes  font  names  or  full  pathnames  as  arguments. 
For  each  arguments  Prfont  displays  the  f ont » setting  the 
characters  in  the  character  code  collating  seguence. 
Character  positions  are  set  and  aooear  as  they  would  if 
used  in  documents.  The  fonts  are  displayed  in  a 9 inch 
horizontal  field  which  may  he  adjusted  by  an  optional 
leadina  araument»  a decimal  number  between  I and  Pb9, 
The  default  field  widtn  (9  inches)  is  Pin  bytes. 


files 


<fn>  must  be  a digitized  file 


PRFONT 


PRFONT 


PRFONT 


i<de  f i ne  SPACE  1 
sdetine  T(jP  ?30 
^define  PAGEHT  l'J*100 
int  roww»  rows? 
int  linecount  PAGEHT; 
i n t oagew  t h ? 

int  prdev»  Dlaev»  infont? 
int  ht»  ma»w»  1Ht»  fr» 
int  head*  tail»  nodertr; 
int  zerofl)»  hdr  (2S61  ? 
char  *lp»  *p; 


// 

// 


one 
t OP 


1 / y inch 

ma  rg i n 


vertical  space 


ff  Oia;  char  n)  012; 
header  [tiul  {"/. fonts. 01/Tont/"> 
, pi hu^  12641  ; 

{ 


char 
c ha  r 

char  proof (1321 
struct  c node 
int  C C ; 
char  *oPt  r ; 

Char  *)otr; 
int  r w ; 
int  tvtes? 
int  Ik? 
int  r f t ? 
int  ore? 

} C 1 1 St  (1281  ? 
struct  cnode  *a? 

Struct  cnode  *fset(12“l? 


//char  code 
//->lst  raster  line 
//->  ne*t  raster  line 
//raster  line  width 
//bvtes  p*»r  raster  line 
//left  kern 
//i-OwS  froT  too 
//data  row  count 


ma i n ( a rgc  t a rc v ) 

int  arge?  Char  **arov?  ( 

register  int  i»  argptr? 

Char  oo  ? 
a rgo  t r = 1 ? 

i t ( ( p roe V =OPen ( " / oe V / SOP " * 1 ) ) < 0)  { 

orintf("cannot  ooen  orinier");exit()?) 
it((cloev=ocen("/r)ev/rvo”»ll)  < 0)  ( 

printf("cannot  ooen  o1otter")?exit()?) 
if  (argvlll  (Ul  ==  i//r**set  oaoewth 

pacewth  = atoi(  AarovflJlll  )?  oo  = 1?  > 

else  ( pagewth  = 216?  go  = 0?  > 

i n i t ( ) ? 

while(”~argc  1=  go)  (//process  all  files 
n = arov (aroot r tgol ? 
if  ( *D  ==  '/'  ) ( //full  pathname 

if  ( ( f p = ooen ( a r o V ( a rop t r ♦go]  » 0 ) ) < 0)  < 

D r i n t f ( " c anno  t open  -t  s " » a r a v ( a r oo  t r ♦ go  1 ) ? 
e X i t ( ) ? ) 

printf(");s  opened. ..."»arov(argotr>go]  )? 

> 

else  ( //preoenc  / f on t s . 0 1 / f on t 

f o r ( i = 1 6 ? f heade r ( 1 1 = *o+  + ) 1=  '\0'?i+  + ) ? 

i f ( ( f o = ooen f h eane r , 0 ) ) < 0)  ( 

printf("cannot  ooen  Xs"»header)?exit()?> 


pri nt  f ( "%s  opened " i heaoer) ; 

infont  = head  - tail  - nodeotr  = roww  = Of 
read(fp»hor,5l2);  pead(tp»^htf2)» 
read(fo,ima*w,?);  readffp»>ilht»2); 
checitC)?  //check  for  bad  font  file 
if  ( ht  <=  «^  ) < 

//set  vert  scacinq 
if  ( h t <=  y 0 ) rows  = 2 ; 
else  rows  = 3 f 
> 

else  rows  = 4 ; 

//pqbk  if  font  oisolav  won't  fit 
i f ( n room ( row s * h t + UO))  oanebreaK()* 
p = orhuf;  for(i=0;i<o0;i+’  + ) *c  + + = ' ' f 

for(i=0;(*p++  = arqv(arqptr+ao)tiJ)  1=  ’\0';i++); 

•p  - n 1 ; 

//center*  write  font  name 
wri te(nrdev*Drouf/ i *62 ) 1 

for(i=0; i <25; i t+)  wri te(r)dev*zero*2); 

1 i nec  our  t = ♦ 25 ; 
while  ( 1 ) { 

ge t r ow ( ) ; 
out  row ( ) ; 

ifCinfont  > 127)  break; 

) 

close(fp);  orintf("closed\n");  arqptrf*; 

//if  need  be*  ocbk 
i f ( n room  ( SP  ACE  *2  ) ) oaqebrea<n; 
else  soace ( SP ACE *2) ; 


e * i t ( ) ; 


i n i t ( ) { 

reqister  int  i; 
f or ( i =0 ; i < I 2H ; i ♦ ♦ ) fsetfil 

> 


%c 1 i s t H ] ; 


paqebrea<()  i //oaoe  eject 
int  i * 
char  err; 

err  = c ve r s ( o 1 oe V * 020 ) ; 
if  ( err  -1  ) { 

pr i nt f ( " i nva I i d fileoes  in  oaoebreakXn"  ) ; 
e * i t ( ) ; 

1 

for  ( i =0  ; i < TCP ; i t ♦ ) w r i t e ( o 1 ne v * z e r o * 2 ) ; 

1 i recount  = TOP; 


netrow()  < //aet  a row  of  chars  to  plot 
i f (tai 1 ) ( 

roww  = f se t ( ♦ ♦ t a i 1 1 ->bv t es ; 
head  = tail+t; 


while  ( 1 ) ( 

i f (getdef  ( ) ) { 

if(roww  ♦ f set [t ai 1 1 ->by tes  <=  oagewth) 
roww  =+  t se t ( t a i 1 J ->by t es  ; 
else  {tail--;  + + inforit;  break;} 
if  ( + +-infont  > 127)  break) 
tai 1 ♦+; 

} 

else  if(++infont  > 127)  break; 

} 

} 

putrow()  i //blot  the  row  of  characters 
register  int  h,i,l;  int  t; 
st  rue  t cnode  *ot  r ; 
for(h=U;  h < ht;  h+f)  { 

o = &Dlbuf(2y); 
ptr  = fsett(t  = head)); 
f o r ( 1 =head ; 1 < = t a i 1 ; 1 + ♦ ) { 

i f (pt  r->arc  ) { 

if(h  otr->rft  h < pt  r->  r f t +Pt  r->drc  ) 
//lp->  next  raster  line 
Ip  = ptr->lptr; 

//do  it  by  bytes 
for(i=0;i<ptr->bytes;i+-t) 

*p++  = *lpt+; 

//upoate  Iptr  for  next  oass 
otr->lptr  =•♦•  Ptr->bytes; 

> 

//blank  1 i ne 

else  for(i=0;i<ptr->bytes;i++)  *p++  = 0; 

} 

//blank  character 

else  f o r ( i =0 ; i <p t r ->b y t es ; i + + ) *p++  = 0; 

Ptr  = fsetCt+t); 

} 

//plot  1 raster  line  of  row  of  characters 
wri  te(oldev»plbuf , roof (roww  + 24)  ) ; 

} 

//row  plotted»  plot  some  white  space 
for(h  = 0;h<‘b;h-*-+)  write(oldev»2ero»2); 

1 i necount  =+  h t ♦■5  ; 

//free  bytes  in  reverse  order 
for(i=tai 1 ;i>=head;i--) 
i f ( f set  [ i J ->OPt  r ) 

free(fset  (i)->ontr); 


int  qe  t oe  f ( ) { 

int  bikc/bytc;  reoister  i; 
i f ( hor [ i nf ont  *2)  ) { 

bike  = ( hdr  [ i nf  ont  *2)  1 77^00  ) >>  ; 

bike  =&  0577; 

byte  = hdr ( i n f on t *2 + I 1 ; 


if(blkc)  { //ptr  is  in  blks  and  bytes 
see ( f D » b I kc  » 3 ) ; seek  ( f d » by  t c » 1 ) » > 
else  seek ( fp, byte » 0 ) ; 
qe  t node ( ) ; 

a->cc  = infont;  read  ( f o » !ta“>  rw  » 2 ) » 
read(fp»ia->1k,2);  read(fp»&a->rft»2); 
reaa(fp»&a->drc»2); 

a->bytes  = (a->rw%B  - = 0)  ? a->rw/8  : a">rw/B+l; 
ifCfcheckC))  { //check  for  bad  char  dimensions 
if(a->drc)  i //need  bytes?»  call  alloc 

if((i=a->OPtr=a->Iotr=alloc(a->drc*a”>bytes))<0H 
pr i nt f ( "Nnout  of  memory..."); 
printf("use  a smaller  paqew i a t h \n " ) ; 
e * i t ( ) ; > 

read( fPfa->lot  r,a->drc*a->bytes) ; 

) 

return  ( 1 ) ; 

> 

) 

return(O)  ; 

) 

get  node  ( ) i 

i f ( nodeo  t r > 1 2 7 ) { 

orintf("overflow");  e*it();) 
a = f se t [nodeo t r ♦ + ) ; 
a->OPtr  = a->lptr  = 0; 


i nt  roo  f ( x ) 

int  xi  i //send  plotter  even  # bytes  only 
if(x%2  ==  0)  return(x); 

//for  some  reason  2hU  bytes  crashes  oroaram 
if(x  ==  263)  ret'jrn(262); 

*o  - O;  return(++x); 


space ( X ) 

int  x!  { //plot  X 1/U  inches  space 
int  i ; 

for(i=0;i<x*50;i+h)  write(ploev»iero»2); 
linecount  =+  x*50; 


check()  { //print  then  exit  on  bad  file 
if(ht  < 0 !|  maxw  < 0 !!  Iht  < 0 !{ 

ht  > 256  !l  maxw  > 256  {!  Iht  > ht)  < 

printf("bad  file");  exit(); 

) 

) 


i n t n r oom ( x ) 

int  x!  ( //rtn  1 there  are  not  x plot  lines 
//left  before  bottom;  otherwise*  0 
ifClinecount  f x > PAGEHT)  return(l); 
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else  return(O) 


fcheck()  { //if  bad  chardef»  rtn  0 to  skip  it 
//ot  herwi se»  rtn  1 . 

if  ( (a->rw<0  ||  a->pw>255)  !!  (a->rft<0  ||  a->rf 
!'  (a->lk<0  II  a->lk>(?55)  II  (a->drc<0  ||  a->dr 
) { 

orintf("\ninvaIid  value  for  character  'Xc'\n", 
printfC'rw  %d\trft  Xd\t  1 k %d\tdrc  %d\n”  , a->  rw  , 
a~>rft ,a”>l k/a->drc ) » 
re  t u rn ( 0 ) ; 

) 

else  ret  urn ( 1 ) ; 


a->rf t>P55) 
a->drc>255 ) 


Xc'\n", infont) 
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DESCRIPTION 


S i qnmlc  r < f n> 


Siqnmltr  rpaOs  lines  from  <fn>  and  performs  limited  text 
orocessing.  It  sets  the  text  in  <fn>  in  the  selected 
fonts.  Reference  7 provides  netailed  instructions  for 
its  use*  however*  a orief  description  of  available  com- 
manos  is  listed  below: 


ESC f < f on t n ame>  Change  fonts 

ESCc  <text>  Center  <text> 

E SCo<c h a r ac t e r coce>  Set  the  character  indicated 

bv  the  code 

ESCpp  paragraph 

ESCpq  oaqebreak 


FILES 

<fn>  is  a text  file  interspersed  with  any  of 
C ommands  . 


i 


the  above 
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#de+ine  TOP  230 
»rteMnp  PAGEHT  1^1*100 
i nt  row**; 

si  o; 

oaqewt  h 216; 
linecount  PAGEHT; 
oldev»  infont*  in, 
ht,  rnaxw,  Iht,  fo, 
nodeotr,  openbits; 
zerol32),  har(2bbl; 


/ / t OD  ma  rg i n 


1 n t 
i nt 
i nt 
i nt 
i nt 
i n t 
i n t 
char 
char 
char 
char 
char 
char 

St  rue  t cnooe 
i nt  CC ; 

Char  *ODtr; 
i nt  r w ; 
int  Bytes; 
i n t 1 ; 
int  r f t ; 

1 n t d rc  ; 

> Cl  ist  n2B)  ; 

Struct  cnode  *a,  *ptr; 
struct  cnode  *fchar(12B); 


base ; 
i o , r ; 


*lp,  *D,  *t,  *n,  *ol; 

esc  033;  cnar  blank  OaO;  int  c; 
headerfaoi  { " / . f c n t s . 0 1 / f on t / " > 
DbuflPOl,  tbuf[P01,  olbuf[2b^j; 
f-nark  [1281  ; 

f on t name  [20 1 , ochar(lO); 

[ 


//character  coae 
//->lst  raster  line 
//raster  line  width 
//bytes  per  raster  line 
//left  kern 
//rows  from  top 
//oata  row  count 


ma 1 n ( a rqc  , a rg V ) 

int  arge;  cbar  **argv;  [ 

if  (a  rqc  < 2 ) ex  i t ( ) ; 

else  if  ( ( i o = open ( a ra V ( 1 1 , 0 ) 1 < 0)  [ 

orintf("cannot  open  %s",argv[ll);  exitC); 

} 

i n i t ( ) ; 

while  (oetln())  putlnC); 
orintf("closed\n"l;  exitC); 


i n i t ( ) 1 

register  int  i; 

if((olaev=coen("/dev/rvo",l))  < 0)  { 

D r i n t f ( " c anno t ooen  plotter");  exitC); 

) 

f o r ( i =0 ; i < 1 2H ; i ♦ ♦ ) fchar[i)  = 0; 
n = fmark,  f o r ( i = 0 ; i < 1 2H ; i ♦ ♦ ) *n++  = -i; 
fo  = 0;  c Tont ( "SA IL 1 0" ) ; //default  font 


int  oetlnC)  C //rtn  1 if  there's  a line  to 
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A 


//be  olotter)»otherwise»  0 


char  k; 
t = t bu  f ; 
k = o; 

v»hile  ( ((*t  = aetcn())  1=  '\n') 

(*t  !=  '\0')  ) { 

if  ( k++  89  ) { = '\n*;  break;  > 

t + + ; 

} 

if  ( *t  ==  '\0'  1 return(O); 

else  return(l); 


putlnC)  { //plot  as  fr. uch  as  can  fit  in  HAGEwTH 
register  int  h,i; 
roww  = 0;  paqewth  = 21b; 
if  ( si  ==  0)  si  = 24; 
t = tbuf;  p = pbuf; 

•xhile  (*t  1=  '\n')  { 

if  (*t  ==  esc)  i if  (eschar())  break;  } 
if  (filchar())  t reak  ; 

} 

*o  = ’ \n ' ; 

if  (t  ~~  tbuf)  return;  //null  line  in  input  file 
//cbeck  for  roofr 

if  ( n room  ( h t +■  ( h t / 1 0 1 ) ) ) oanebreakC); 

f o r ( h = 0 ; h <h t ; h t + ) ( 

o1  = iolbuftsl);  *r1  = 0;  openbits  = 6; 

Dtr  = fchar[*(o  = obuf)); 
while  (*c  1=  ’\n'  ) { 

r = ot  r->rw; 
if  (pt  r->drc ) { 

if(h  >=  Ptr->rft  h < Ptr->rft+ptr->orc)  { 

i = h - Dtr->rft; 

Id  = Dtr->ODtr  + i *Pt r->by t es ; 
while(r  > 0)  { 

shifr();  r =-  B;  ) 

) e 1 se  { 

Ip  = zero } 
wbilefr  > 0)  { 

shi^t();  r =-  B;) 

) 

> e 1 se  < 

Ip  = zero; 
wnilefr  > 0)  { 

shift();  r =-  b;> 

) 

Dtr  = fcharl**+p); 

> 

//plot  one  row  raster  line 

wri te(Dldev»plbuf » roof ( roww  + s1 *8)  ) ; 

) 

//plot  some  white  soace 
for(h=0;h  < ht/l0+l;htf) 
write(pMev»zerc»?); 
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Hnecount  =+  h t ♦ ( h t / 1 0 +•  1 ) ; 
si  = o; 


eschar()  { //esc-  soecial  characters 
i n t i » h i » space? 
char  ttf  *tb»  *te? 
if(t==tbuf)  ( 

if  ( (c  = *++t)  ==  *f')  < //font  chanae 

n = font  name » t ♦ t ; 

while  ( (*n  ~ *t++)  1=  ' ' *n  1=  '\n'  ) 

n + t; 

1 1 = *n ; 

*n  = '\0';  C f on t ( f on t name  ) ; 
i f ( (tt  ==  '\n*  ) ! ! (*t  ==  '\n'  ) ) { 

t = tbuf?  return(l);  } 

1 else  if  (c  ==  's')  ( //need  space 

n = ochar;  t**-; 

case  = (*t  ==  '0')  ? H ; 10  ; 
while  (num(*n  = *t))  { 

n ♦ ; t +■  ■*■  ; } 

*n  = ' \0  ' ; 

hi  = oct( ochar)  * ht  ; 
i f ( n room (hi))  ( 

oaqebreak();  t = tbuf?  return(l);  ) 
for  (i=0;i<hi;i++) 

write(pldev»zero»2); 
linecount  =+  hi  ; 

t = tbuf;  return(l); 

) else  if  (c  ~~  'o')(  //no  ascii  equivalent 
n = ochar;  t++» 
base  = (*t  ==  '0')  ? e : lo; 

while  (num((*n  = *t))  ) ( 

n-f  ♦ ; t ♦+  ; 1 

»n  = '\0';  t--; 

*t  = ((i  = oct(ochar))  > -1  li(i  i < ) ? i 

: blank; 

1 else  if  (c  ==  'c')  ( //center  this  line 

while  (*++t  ==  ' ')  ; 

tb  = t ; 

while  ( *t-*-t  1 = ' \n  ' ) ; 

while  (*--t  ==  ' ')  ; 

t e = t ; space  = 0 ; 
for(t=tb;  t<=te;  t++)  ( 

if  ( hdr ( *t  *2)  ) 

space  =♦  hdr(*t*2)  i 0377; 
else  if  (har(0'4  0*2])  ( 

space  =+  hdr[0y0*2J  & 0377; 

*t  = oao; 

1 e 1 se  i 

orintf(" input  error--  "); 

orintf("\tunoefined  character...XcVn",*t); 
f 1 ushh  { ) ; 

} 

) 
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space  = (soace%&  ==  0)  ? soace/B  : space/fl+l; 
si  = 132  - srace/2; 
i f (si  < 2a)  { 

printf(" incut  error--  "); 

print^(”\ttoo  frany  characters  to  centerXn"); 
flushhC); 

) 

f o r ( i =0 ; i < s 1 ; i + + ) clbuf(i)  = 0; 
t = tb; 

> else  if  (c  ==  *o')  ( 

if  ( (c  = *++t)  ==  'g')  {//pgpreak 

oagebreak()»  t = tbuf;  return(l);  } 
else  if  (c  ==  ’o')  (//paragraph 

for(i=0;i<ht;i++) 

wri te(plgev»zerOf2)  » 
si  = 2a  + (2a  * ht/120)» 
oaaewth  = oagewth  - (pa  * ht/120); 
t = tbuf;  return(l); 

else  < 

printf(" invalid  character  folowina  ”); 
pri  nt  f (••  'ESCd'  . ; 

e X i t ( ) ; 

} 

) e 1 se  ( 

printf("input  error-  "); 

printf("\tinvalid  escape  character...  Xc"fC); 
f 1 ushh ( ) ; 

) 

> else  if  ((c  = *++t)  ==  ’o')  ( //no  ascii  eouiv 

n = ochar;  t++; 
base  = (*t  ==  '0')  ? 8 : 10  ! 
while  (num((*n  = *t))  ) ( 

n t ♦ ; t + + ; ) 

*n  = ' \o ' ; t 

*t  = ((i=oct(ocnar))  > -1  i < 128)  ? i 

: blank) 

> else  if  (c  ==  'f')  (//no  font  chg  allowed  here 

orintf("chanae  fonts  at  line  head  only  " ) ; 
f 1 usnh ( ) ; 

1 e 1 se  { 

p r i n t f ( ■*  i nou  t error-  ” ) ; 

printf("\tinvalid  escape  character  ( Xc  )\n"»c)) 
p r i n t f (" \ t embedded  within  text...\n"); 
f 1 u s h h ( ) ; 

) 

r e t u r n ( 0 ) ; 


nt  filchar()  ( //move  Chars  frori  tbuf  to  pbuf  until 

//PAGEwTH  exceeded^  replace  nonexistent 
//chars  with  blank;  ow>  exit 

register  int  i; 
i n f on  t = ♦ t ; 
if  (hdr(infont*21)  ( 
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if  I f c h a r ( i n f on t J ==  0)  ( 

getdef  ( ) ; 

if  (roww+a->rw  <=  oagewth*8) 
roww  =•♦•  a“>rw; 

else  { *D  = ’\n';  return(l);> 

> else  if  ( r ow w t f c ha r [ i n f on 1 1 -> rw  < = 

roww  =+  f c h a r ( i n f on t ] ” > P w ; 
else  {*D  = *\n';  return(l);} 

> else  if  ( hdr [ ( i n f on t =b 1 an k ) * ? ) ) i 

*t  = blank; 

if  ( f c h a r [ i n f on t ] ==  0)  { 

ge  t be  f ( ) ; 

if  (roww+a~>rw  <=  pagewth^B) 
roww  a->rw; 

else  {*D  = '\n';  return(l);> 

> else  if  ( roww  + f char  [ i nf ont 1 *>rw  < = 

roww  =+  f C h a r C i n f on t 1 “> r w ; 
else  {*o  = '\n';  retumCl);) 

> e 1 se  { 

printf("character  ’’4^o'  not  defined  i 
heade  r ) ; 
f 1 ushh ( ) ; 

} 

*pt+  = *t+t; 

ret  urn ( 0 ) ; 


C f on  t ( a ) 

Char  *a;  { //a  points  to  new  font  naire 

register  int  i» 
if  (fo)  { 

orintf("closed\n");  close(fc); 


f o r ( i = I b ; ( heade r ( i ) = + + ) 1=  '\0';i++) 

1 f ( ( fo  = ooen ( heaner , 0 ) ) < 0)  < 

printf("cannot  ooen  %s", header);  exit 

> 

printf("%s  opened. ..."/header); 
dea  1 1 oc ( nooec t r ) ; nodectr  = 0; 
for(i=U;i<128;i++)  tcharCi)  = 0; 
read(fo»hdrr51?);  read(fo»&ht»2); 
read(fp,&r'axw,2);  read(fp»&lht»2); 
i f (chec  k ( ) ) { 

printf("%s  bad  fonr  f i 1 e " » h eade r ) ; 
ex  i t ( ) ; 

} 

} 


deal  1 oc  ( X ) 

int  x;  < //free  in  reverse  orner 
//  of  allocation 

while  ( X ) 

i f ( fchar  ffnark  C--x)  1 ->ootr) 

free(fcharlfirarklx))->oPtr); 


} 


1 33 


paqew  t h *8 ) 


oaqew  t h *8 ) 


n % s " , * t / 


( ) ; 


it 


DaqenreakC)  ( //nage  eject 
i n t i ; 
char  err; 

err  = c ve r s ( d 1 de v » C?0 ) ; 
if  ( err  ==  -1  ) < 

p r i n t f ( " i n va I i d filedes  in  oaaebreakXn" ) ; 
e * i t ( ) ; 

> 

for  ( i =0  ; i < T OP  ; i ♦ + ) w r i t e ( c 1 de  v * e e r o , c? ) ; 

) i nee  oun  t = TOP; 


) 


ae  t ae  f ( ) ( 

int  plKC/hvtc;  register  i; 

bike  = ( h d r ( 1 n f on t * 2 1 ^ 0 1 7 7 u 0 0 ) >>  b; 

bl«c  =i  0577; 

byte  = h a r ( i n f on  t + 1 ) ; 

i f ( b 1 k c ) { 

see « ( f D » b 1 kc » 3 ) ; see < C f p » b v t c # 1 ) ; > 

else  seek(fD»bytc*o); 
ge  t noae ( ) ; 
a->cc  = infont; 
read(  fp»&a->r-<»?)  ! 

reaa(fc»ia->lk,^);  read(fo»'<.a->rft»^); 
reab(fo»iia->drc»2); 

a->bytes  - ( a ~>  r<M%t  - - 0)  ? a“>rw/0  : a-> 
i f ( a ->d rc  ) ( 

i f( ( i=a->optr  = al  loc(a->orc*a->bytes)  ) 
deal loc(nodeptr-l ); 
aetdef();  return; 

> 

reaa(fD,a">ootr,a->drc*a->bvtes}; 

in  = 0 ; 

f o r ( i =0 ; i <ncaeo t r ; 1 ♦ ♦ ) { 

if(ftrark(i)  ==  infontj  in  + + ; 

} 

if(in  ==  0)  f'T'ari<lnodep*’r-l)  = infont; 


} 


ge  t noae ( ) i 

i f ( nodep  t r > 1 ^ 7 ) { 

orintf("overflow");  exit();) 
a = fcharlinfont)  = ?.clistrnodectr  + +’j; 
a->optr  = 0; 

} 


i n t r oo  f ( X ) 

i n t X ; { 

X = (x%H  ==  0)  ? x/P  : x/8  f i; 

if(x%2  ==  0)  return(x); 
if(x  ==  2b3)  return(2b2); 

*ffpl  = 0;  return(ffx); 

) 
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i n t c hec  k ( ) { 

if(ht  < 0 I!  fraxw  < 0 !l  Iht-  < 0 !| 

ht  > 1?0  !!  'Ttaxw  > 25b  I!  Iht  > ht)  return(l); 
else  return(O); 

} 

i nt  nroorp  ( x ) 
i n t X ; { 

ifCHnecount  + x > PAGEHT)  return(l); 
else  return(O); 

} 

s h i f t ( ) { 

i n t t b ; 

tfc  = *1d;  tb  =!4  0377;  tb  =<<  onenbits; 
i f ( r > 7)  { 

*D>++  =!  (tb  i 0177a00)  >>  h; 

*pl  0;  »d1  =1  tb  i 0377; 

> e 1 se  ( 

i t ( r <=  openfc its)  ( 

*p)  =!  (tb  K 0177a00)  >>  8; 

OPenp i t s = - r ; 

) e t se  ( 

*d1++  =!  (tb  X 01  77U00)  >>  8; 

*ol  O;  *pl  =1  tb  X 0377; 

OPenpits  = 8 - ( p -pnenc i t s ) ; 

> 

) 


1 p + + ; 


) 


1 n t OC  t ( C P ) 

Char  *co;  { 

i n t i ; 1 = 0 ; 

base  = (*cp  ==  '0')  ? 8 ; 10; 
while  (nijrr(*cp)  isX  *cn  !=  '\0') 

i = i*hase  + *cp++  ~ 'O'; 
return!  i ) ; 

} 

i n t nun ( cp ) 

C h a r c p ; < 

if(base  ==  10  &X  (cc  >=  'O'  co  <=  '<?'))  return(l) 
if(base  ==  8 XX  (cc  >=  'o'  X&  cc  <=  '7'))  return(l); 
1 t (cp  ==  ' 8 • : : cc  ==  ' P ' ) { 

print^("input  errcr--  "); 

crintt(''\tirrcroper  octal  nu'T'ber...%o",cc)J 
while  (*t  1=  '\n')  DU t c h a r ( * t + + ) ; 

e X 1 t ( ) ; 

> 


else  return(O); 


> 


aetch ( ) ( 

c h a r 1 1 » s ; 


s = read( ip, &t  t » 1 ) » 
i f ( s ==  0 J return (' \0 ') ; 
else  return(tt); 


flushh()  { //print  oaa  input  line  and  exit 
while  (*t  1=  '\n')  Putchar(*t++1; 
ex  i t ( ) ; 

> 
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